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MOVIT - ROBOT IN KITS DI MONTAGGIO 


I robots MOVIT sono un concentrato dei più recenti progressi nel set¬ 
tore della tecnica elettronica e costituiscono la prima generazione dei 
micro-robots. 

Una scatola MOVIT contiene infatti materiali meccanici e circuiti elet¬ 
tronici che vi faranno compiere il grande passo verso il futuro: la robo¬ 
tica. 

I robots MOVIT, oltre che divertire, svolgono un ruolo educativo da non 
sottovalutare: impegnano l’attenzione, affinano l’intuito del ragazzo 
nella costruzione della macchina e sviluppano i riflessi. 

Per tutti questi motivi, i robottini della MOVIT, inclusi nella ristretta 
categoria dei cosi detti «giocattoli intelligenti», aiutano davvero ad 
imparare giocando. 

Come si assemblano: 

- L’assemblaggio è facile 

- Nessuna attrezzatura particolare è necessaria (se non un semplice 
giravite a croce, forbice e piccola pinza). 

- Tutti i circuiti elettronici sono pre-montati (nessuna saldatura è 
necessaria). 

- Istruzioni di montaggio chiare e precise. Tutti i particolari da montare 
si trovano in sacchetti numerati. 

Istruzioni di montaggio in italiano e in inglese. 

- Funzionamento con batterie commerciali. 




































































In copertina: 

Wizard MSX, il robot della serie 
MOVIT, interlacciabile con il 
computer del domani. 

foto copertina: 

Pennacchietti-Fortinl 



Da questo numero una nuova 
interessante iniziativa di LIST: 
la vendita diretta di software su 
supporto magnetico. 
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INUNCI ANN UNCI ANNUNCI ANNI 

AWISI Al LETTORI 

INUNCI ANNUNCI ANNUNCI ANNI 

Comunichiamo che per motivi 
redazionali, da questo numero 
sospendiamo la pubblicazione del 
fumetto «L’Amico Segreto», 
che riprenderà quanto prima. 

La Redazione 

kNNUNCI ANNUNCI ANNUNCI ANN 


NCI ANNUNCI ANNUNCI ANNUNCI ANNUNCI 

Siamo lieti di informare i nostri lettori che, per venire incontro 
alle numerose richieste pervenute in Redazione, verrà 
istituita al più presto su queste stesse pagine una rubrica di 
«piccoli annunci» gratuiti di compra/vendita. 

Chiunque fosse interessato è invitato a scriverci fin da ora, 
ricordando di specificare il proprio nome, cognome, 
indirizzo, ed eventualmente prefisso teleselettivo e numero 

nunci annunci annunci annunci 

Gli annunci dovranno essere indirizzati al seguente 
indirizzo: 

LIST - Programmi per il tuo Home-Computer 

Piccoli Annunci - V.le dell’Esperanto, 71-00144 ROMA EUR. 

NCI ANNUNCI ANNUNCI ANNUNCI ANNUNCI 


lU!' 


ICI 


NUNCI ANNUNC 


Piccola indagine 
tra i lettori di 






Gentili lettori, 

come avrete notato, questa rivista vive esclusivamente con la 
pubblicazione di programmi educativi, culturali e didattici. 

Forse ci manca un po’ di ordine ed è per questo che chiediamo la 
vostra collaborazione. Sappiamo tutti quali sono le marche degli 
home-computers più diffusi nel nostro paese e quale 
assortimento diversificato esiste sia nell'hardware che nel 
software disponibile sul mercato. 

LIST si propone di offrire ai suoi lettori una migliore ripartizione di 
software compatibili con i tipi di H.C. in loro possesso. 

Con questo ci proponiamo (in un certo senso) di personalizzare 
la rivista ai vostri computers e renderci sempre più disponibili 
alle vostre esigenze. 

Inoltre come avrete constatato nei numeri 4 e 5/6, abbiamo 
allegato alla rivista un supporto nuovo e originale, il DISCOLIST 


con già incisi dei programmi per alcuni home computers. 

A tal proposito vi saremmo grati se voleste farci pervenire un 
giudizio tecnico al fine di riproporlo nei numeri successivi di LIST. 
Aggiungiamo infine alcune informazioni di carattere 
tecnico-economico affermando che il DISCOLIST oltre che 
rappresentare un supporto affidabile per il trasferimento dei 
programmi su computer è molto più economico della 
tradizionale cassetta. 

Certi della vostra collaborazione, vi invitiamo ad inviarci al più 
presto il modulo pubblicato in questa pagina riempito in ogni sua 
parte o trascriverlo su cartolina postale, indirizzandola a: 
LIST-Programmi: per il tuo home computer, Via dell’Esperanto, 
71 00144 ROMA-EUR. 

Non dimenticate nome, cognome ed indirizzo. 

La Redazione ringrazia quanti vorrano collaborare. 


MARCA e TIPO di H.C. 

» » DRIVE . 

»* »> STAMPANTE ... 

» » REGISTR. 

» » MONITOR. 

Età e uso prevalente del computer 


Via . 

Città . cap. 

Tel . 

GIUDIZIO TECNICO-PRATICO SUL DISCOLIST 
□ POSITIVO □ NEGATIVO 
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Le vacanze finiscono con una buona notizia 
per i nostri lettori. Il largo consenso ottenuto 
da LIST e la qualificazione che il mondo 
dell’informatica ci ha nuovamente 
riconosciuta, consente all’editore una 
significativa azione promozionale. Già da 
questo mese, insieme con la rivista 
«madre», diciamo così, i lettori troveranno il 
«Listino » una sorta di appendice tascabile 
della nostra rivista che pubblicherà 
programmi particolari — giochi e software 
didattico — che i nostri giovani amici 
potranno portare e usare a scuola, o a casa 
degli amici, con maggiore praticità. A questo 
proposito segnaliamo con orgoglio 
l’interesse con il quale il mondo della scuola 
segue il nostro lavoro. E il piano per 
l’informatica nelle scuole che il Ministro per 
la Pubblica Istruzione ha presentato nel 
Convegno CEE del Maggio scorso a 
Bologna, ci conforta perché i fini che List 
persegue da tempo nel campo della 
didattica sono in sintonia con quelli della 
scuola di casa nostra. 

Nei prossimi numeri di LIST i lettori 
troveranno nuovi argomenti, nuovi articoli, 
sulle applicazioni dell’informatica in settori 
tecnologicamente molto avanzati quali 
1’automobile, l’aviazione, lo spazio, la 
ricerca, le scienze applicate ecc. In questo 
modo la redazione di LIST vuole allargare il 
campo dell’informazione per aumentare quel 
consenso che i nostri lettori hanno mostrato 
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QUESTA RUBRICA È APERTA 
A TUTTI I NOSTRI LETTORI. 
CHI, NEL DIGITARE I 
PROGRAMMI PRESENTATI, 
AVESSE INCONTRATO DELLE 
DIFFICOLTÀ O APPORTATO 
DELLE MIGLIORIE PUÒ 
SCRIVERE ALLA REDAZIONE. 
LE LETTERE PIÙ 
INTERESSANTI E 
SIGNIFICATIVE VERRANNO 
PUBBLICATE IN QUESTE 
PAGINE, COMPLETE DI 
NOME, COGNOME E 
INDIRIZZO DEL MITTENTE, AL 
FINE DI STABILIRE UNA RETE 
DI CORRISPONDENZA 
ANCHE FRA I LETTORI STESSI. 


... Ho attentamente copiato e 
verificato il programma «Il 13 
Minuto per Minuto» da voi 
pubblicato sul n. 3 della rivista: 
riesco a compiere tutte le opzioni 
previste dal Menù tranne che 
l’elaborazione del sistema 
condizionato. Dopo aver infatti 
immesso partite, pronostici e 
condizioni all’alto 
dell’elaborazione viene si 
visualizzato lo scorrimento delle 
colonne vagliate ma le colonne 
selezionate risultano essere 
sempre ZERO... 

Paolo Maroni 
Filottrano - AN 


... Ho provato a ribattere il 
programma «Il 13 Minuto per 
Minuto» per far vincere il mio 
babbo al Totocalcio. Quando viene 
richiesta l’opzione 5 (Video e/o 
Stampa) inizia a disegnare linee 
verticali e orizzontali per tutto lo 
schermo e poi si ferma... 

Simona Flamigni 
Forlì 

Cogliamo l’occasione di queste due 
cortesi lettere - precedute a dire il 
vero da diverse telefonate di altri 
lettori - per chiarire il funzionamento 
del programma in questione. 

Ci sembra di capire che sia il Sig. 
Paolo sia la piccola Simona, pur 
digitando correttamente il listato 
presentato, abbiano fatto un po’ di 
confusione al momento 


deN’inserimento delle condizioni. I 
parametri di condizionamento 
prevedono infatti, come i nostri lettori 
avranno notato, diverse combinazioni 
dei segni «1x2». In fase di 
elaborazione il computer deve tenere 
conto dei parametri e nel caso che 
questi non siano stati inseriti 
seguendo un ben determinato ordine 
logico e/o entrino addirittura in 
conflitto fra loro, nessuna colonna del 
sistema integrale potrebbe 
corrispondere alle condizioni previste. 
Bisogna dunque fare molta 
attenzione e controllare attentamente 
le condizioni immesse, al fine che 
queste «convivano» logicamente. 
Seguendo questo piccolo ma 
importantissimo suggerimento il Sig. 
Paolo e Simona senz’altro, come per 
altri lettori che felicemente hanno 
superato il problema, otterranno il 
loro sistema. 



... Sono un possessore di VIC 20 e 
ho un probema: la scatoletta che 
va collegata alla TV fino a qualche 
mese fa mi funzionava solo se 
premuta violentemente. A furia di 
premere però mi si è rotta! Mi 
consigliate di comprarla nuova o di 
farla riparare? 

Esiste un programma che 
aggiunga memoria al VIC? Se 
esiste chi lo ha prodotto? 

Esiste una sede di Assistenza 
Commodore a Roma? Dove si 
trova? Esiste un programma tipo 
TURBOTAPE che vada bene anche 
sul VIC 20? 


Le domande che ci sono state poste 
non sono poche ed alcune sono 
anche indice di una certa confusione 
riguardo alla struttura del computer. 
Rispondiamo per ordine. 

Non siamo in grado, a distanza, di 
fornire consigli sulle due scelte 
presentateci in merito al modulatore 
RF-TV. Dipende molto dall’entità del 
danno, ma comunque consigliamo il 
lettore di orientarsi verso l’acquisto 
dell’accessorio. 

Il problema nasce se il computer non 
è più in garanzia: ci è successo 


personalmente di fare il giro di molti 
rivenditori della città di Roma per lo 
stesso problema, ma la risposta è 
stata dovunque la medesima e cioè 
che non erano ancora disponibili i 
ricambi di tale oggetto. Se così 
ancora fosse al lettore non rimane 
che rivolgersi al negozio dove il 
computer è stato acquistato e 
provare a chiedere la riparazione del 
modulatore. 

Sul secondo punto il lettore mostra di 
avere delle lacune a livello 
informativo sulla struttura del 
computer. Non può esistere un 
programma che aggiunga memoria al 
computer perché inevitabilmente 
esso «consumerebbe» memoria...! 
Vero è che si può modificare il 
puntatore di inizio e di fine della 
memoria RAM utente, ma poi 
bisogna essere in grado di indicare al 
computer dove trovare quella parte di 
istruzioni o di memoria «cancellate» 
per far posto alla memoria 
«aggiunta». 

Se il lettore vuole «divertirsi» e veder 
aumentare le cifre indicanti la 
quantità di memoria disponibile, gli 
basterà inserire dei valori compresi 
tra 0 e 255 nelle locazioni di memoria 
43 e 44 con delle opportune POKE. 
Per la sede di assistenza a Roma ne 
esistono molte. Il problema al solito è 
che i prodotti Commodore sono 
arrivati in Italia oltre che tramite la 
rappresentanza ufficiale nazionale 
della Casa madre, anche da una 
miriade di importatori più o meno 
ufficiali, ognuno dei quali dovrebbe 
avere una propria sede di assistenza. 
Per sapere a quale centro ci si deve 
rivolgere, basterà chiedere 
dettagliate indicazioni al negozio in 
cui è stato acquistato il VIC. 

Sulla possibilità che esista un 
programma che velocizzi le 
operazioni con il registratore, non 
siamo a conoscenza di nessun 
artificio, software o hardware, che 
risolva il problema per il VIC. 

In ogni caso non dovrebbe essere 
difficile riuscire a implementare un 
piccolo programma in L.M. che 
agendo sulle routine del sistema 
operativo dimezzi i tempi di 
registrazione e lettura del registratore. 



Francesco Pella 
Roma 
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... In alcuni programmi tra cui 
Meteore e Attacco alla città, ho 
trovato un comando READ che mi 
crea qualche problema. Al 
momento di far eseguire il 
programma, il computer stampa 
dei messaggi di errore riferiti alla 
linea che contiene l’istruzione 
specificata. Per quale motivo? 

Il comando READ è sostituibile con 
altri o è indispensabile? 

Roberto D’Eramo 
Pescara 

Ancora una volta ci troviamo davanti 
ad un problema che ci riesce difficile 
interpretare a causa dell’eseguita 
delle informazioni dateci. Preghiamo i 
lettori che ci scrivono riguardo ai 
programmi pubblicati di volerci 
segnalare dettagliatamente il tipo di 
errore visualizzato sullo schermo. Ad 
ogni modo se solo si perdesse un 
attimino di tempo a cercare di 
interpretare la segnalazione 
dell’errore (in ogni manuale di uso del 
computers c'è una specifica sezione 
che tratta l’argomento), 
probabilmente si riuscirebbe a 
risolvere da soli il problema 
(facilitando, sinceramente, anche il 
lavoro dei nostri programmatori 
costretti a «fantasticare» sui 
prossibili errori commessi). Tornando 
al problema posto dal lettore: 
potrebbe darsi che nel blocco di 
istruzioni DATA a cui il comando 
READ fa riferimento, manca forse 
qualche elemento. In tal caso si 
dovranno controllare le istruzioni 
DATA per vedere se ci sono 
effettivamente tutte o se ne manca 
qualcuna. Altra possibilità è che si 
tratti di un errore di sintassi, in tal 
caso ricontrollare la linea per vedere 
se tutte le istruzioni sono state scritte 
correttamente. 

Tutti i comandi sono utili ma non 
indispensabili: è questa una frase che 
meriterebbe di essere 
adeguatamente commentata. In 
realtà anche se questa dice il vero, 
bisogna ammettere che è 
dispendioso, sia in termini di tempo 
che di spreco di memoria, far uso di 
una serie di istruzioni diverse per 
simularne, magari in modo 
approssimativo, una già presente nel 
SET della macchina. Consigliamo al 
lettore di prestare maggiore 
attenzione nel digitare i programmi 
presentati sulle pagine della rivista e 
di far uso delle istruzioni previste 
invece di affrontare tortuose 


mulattiere in luogo delle superstrade. 




Gent.le Redazione, 

Vorrei ricevere dettagliate 

informazioni sulla scatola di 

montaggio del robot di produzione 

MOVIT interfacciabile con il 

Commodore 64; inoltre vorrei 

conoscerne il prezzo e dove lo 

posso comprare. . _ 

Luciano Tursi 

Diamante (CS) 


Rispondiamo brevemente al Dott. 
Tursi così come ad altri lettori che ci 
hanno posto lo stesso quesito. 
Attualmente il MOVIT II Wizard per il 
Commodore 64 è disponibile 
esclusivamente in esemplare unico 
presso la sede generale europea 
della Elehobby in Belgio. 
L’importatore italiano-TEXIM Italia 
-, l’unico ad essere autorizzato in 
Italia dalla Casa madre alla 
distribuzione dei prodotti di sua 
produzione, ci ha fornito la scheda 
tecnica del Wizard MSX da cui è stato 
ricavato il modello interfacciato con il 
Commodore 64. 

Non ci dovrebbero essere modifiche 
sostanziali nelle possibilità tecniche e 
nelle procedure di controllo dei due 
modelli. 

Il Wizard MSX è controllato da un 
computer appartenente allo standard 
MSX a mezzo di una cartuccia 
ROM/RAM da inserire in fase di 
programmazione nello SLOT di cui 
sono provvisti tali computers, e da 
immettere poi in un altro SLOT 
presente sul Robot per l’esecuzione 
dei movimenti. 


I possibili movimenti eseguibili dal 
Wizard sono fissati ad un massimo di 
256 ed è possibile conservare la 
programmazione della Memoria RAM 
contenuta nella cartuccia, fino a 10 
minuti. A tal proposito è bene 
ricordare che le memorie RAM sono 
volatili, perdono quindi i dati in esse 
immessi se viene a mancare 
l’alimentazione. Il problema è stato 
risolto piuttosto semplicemente 
dotando la cartuccia di un 
condensatore di grande capacità che 
conserva i dati per quel lasso di 
tempo necessario a disinserire la 
cartuccia dallo Slot del computer e 
inserirla nel Robot. Sullo schermo del 
computer viene visualizzato un menù 
con le possibilità offerte dal Wizard e 
■ cioè: 

motore sinistro, motore destro, 
beep, luci, counter, mov. 

Le prime quattro colonne indicano 
con le parole ON e OFF la situazione 
di acceso e spento dei due motori, 
del segnale acustico e delle 
segnalazioni luminose. La colonna 
counter mostra l’intervallo ed il 
numero di movimenti inseriti. 
Nell’ultima colonna viene mostrato 
qual'è il movimento ottenuto dalla 
combinazione dello stato dei due 
motori. 

Ciò è necessario per rendere quanto 
più possibile chiaro che il movimento 
ottenuto, è inverso, se così si può 
dire, al motore usato. 

Per essere più chiari se si pone in ON 
(acceso) il motore di destra, sul menù 
nella colonna mov. sarà visualizzata 
la parola LEFT (sinistra) che indica 
che il wizard girerà a sinistra. 

Perché il robot esegua un movimento 
in avanti, è necessario porre in ON 
ambedue i motori; sul menù, nella 
colonna mov. sarà visualizzata la 
parola FORWARD (avanti). A causa 
del poco spazio a disposizione non ci 
è possibile fornire ulteriori dettagliate 
informazioni che comunque 
rimandiamo al momento in cui il 
modello di robot interfacciato con il 
Commodore 64 sarà disponibile per 
una prova sulle pagine della rivista. A 
chi non se la senta di aspettare quel 
momento, ricordiamo che altri 
modelli della MOVIT sono 
interfacciabili con il Commodore 64, 
a patto di avere un po’ di buona 
volontà; tra quelli che più 
riproducono le possibilità del Wizard 
rimane primo Memocon Crawler 
seguito da Circular. 
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PUBBLICHIAMO IN QUESTE PAGINE L’ELENCO 
COMPLETO DEI PARTECIPANTI AL CONCORSO STRIKE, 
UNITAMENTE Al NOMINATIVI DEI NOVE FINALISTI, DEL 
VINCITORE ASSOLUTO DEL CONCORSO E DEL 
VINCITORE DELLA CARTOLINA MILIONARIA, LA CUI 
ESTRAZIONE È AVVENUTA IL GIORNO 31 LUGLIO 1985 
ALLA PRESENZA DEL FUNZIONARIO 


NOMINATO DAL MINISTERO DELLE FINANZE, D.SSA 
PAOLA BARTOLI PINTUCCI. 

COGLIAMO L’OCCASIONE PER RINGRAZIARE 
NUOVAMENTE QUANTI HANNO PARTECIPATO 
INVIANDOCI I LORO LAVORI E TUTTI COLORI CHE CI 
HANNO SEGUITO CON L’INVIO DI NUMEROSISSIME 
CARTOLINE VOTO. 


1 __ 


TEXAS TI 99/4A 

Filippo Pergola (Roma) 

I Elenco dei vincitori di ciascuna categoria! 



Programma: Olimpiadi 

COMMODORE 64 

ZX-81 


Maurizio e Stefano Moretto (Mestre) 

Loris Gerini (Falconara M.ma) 

MPFII 

Programma: Easy Sprite 

Programma: Condominio 

Massimo Marinelli (Roma) 
Programma: Mastermind 

VIC 20 

SHARP MZ 700 


A. Farinelli e S. Cervellera (Bologna) 

Dario Letizia (Napoli) 

ORIC 1 

Programma: Bruce 

Programma: Slot Machine 

A pari merito : 

Marco Belli (Roma) 

ZX SPECTRUM 

SEGA SO 3000 

Programma: Break Out 

Fabio Travi (Roma) 

Franco Albanelli (Castel Gomberto) 

Fabrizio Cuminetti (Roma) 

Programma: Il 13 minuto per minuto 

Programma: Spider 

Programma: Salta la rana 
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Elenco partecipanti al concorso 


TEXAS TI 99/4A 


1) VINCI QUATTRO 
Imbeni Davide 

V. Bacone 35 - Modena 

2) DATABASE 
Marchetto Luciano 

V. Cacciatori 69 - Nichelino (TO) 

3) MISSION VENUS 
Zappalà Roldano 

V. Umbra 3 - S. Giustino (PG) 

4) LE MINE 
Martini Gianni, 

V. Castello 14 - Coldirodi (IM) 

5) OLIMPIADI 
Pergola Filippo 

V. Claudio Asello 27 - Roma 

6) MR.JUMP 
Cambi Enrico 

V. Abetti 27 - Modena 

7) OMEGA LANDER 
Torti Fabio 

V. L. da Vinci 7 - Tortona (AL) 

8) SNAKES 
Sciucca Lorenzo 

V. Cesare Massmi 46 - Roma 

9) AVAMPOSTO SPAZIALE 
Micheloni Mario 

V. delle Conce 20 - Lucca 

10) CALCOLO TRASFORMATORE MONO¬ 
FASE 

Valente Eugenio 

V. Galeno 9 - Castrovillari (CS) 

11) GESTIONE ARCHIVI 
Pizzotti Marino 

V. Matteotti 9 - Cassma de Pecchi (MI) 


CMB64 


1) SINTCODER 
Giusti Marco 

V. Savona 22 - Pisa 

2) DONATORI SANGUE 
San Martini Renato 

V. Nazionale 12 - Incisa (FI) 

3) SPRITE UTILITY 
Brunelli Bruno 

V. dei Preti 1 - Foligno (PG) 

4) ECONOMIA CASA 
Mazzini Dino 

V. Boccherini 25 - Casalecchio di Reno 
(BO) 

5) FORMULE GEOMETRIA 
Errichetti Renato 

Borgo S. Antonio 72 - Rieti 

6) PITAGORA 
Procida Antonio 

Corso Umberto I 28 - Crecchio (CH) 

7) BILANCIO 
Rusticali Luigi 

V. Mazzini 19 - Russi (RA) 

8) EASY SPRITE 
Moretto Maurizio 

V. Salvore 11 - Mestre (VE) 

9) FLIGHT PLAN 
Olivotto Marco 

V. dell'Abetone 6/a - Rovereto (TN) 


9) TOMBOLA 
Leoni Massimo 

V. G. Marconi 22 - Velletri (Roma) 


ORIC 1 


1) BREAKOUT 
Belli Marco 

V. L. Capocci 12 - Roma 

2) SALTA LA RANA 
Cummetti Fabnzio 

V. C. A. Guglielmi 74 - Roma 


ZX SPECTRUM 


1) TOMBOLA 
Calò Tommaso 

V. XX Settembre 19 - Tot Lupara (Roma) 

2) IL 13 MINUTO PER MINUTO 
Travi Fabio 

V. Poggio Verde 40 - Roma 

3) IL LOTTO 
Girone Elio 

Corso Italia 49 - Marano (NA) 

4) LINEE ZERO 
Cantone Saveno 

V.F. Mengotti 48 - Roma 


ZX 81 


1) SWIMMING POOL 
Mondelli Francesco 

V ie Promontori 396 - Ostia Lido (Roma) 

2) I POMPIERI 
Michieii Marco 

V. Servilio Prisco 12 - Roma 

3) U.S.A 

Danti Raffaelo 

V. Cairoli 64 - Sesto Fiorentino (FI) 

4) IL POETA SINCLAIR 
Caracciolo Mario 

V. Buriasco 1/D - Tonno 

5) CONDOMINIO 
Genni Loris 

V. A. Volta 8/A - Falconara Mar. (AN) 


SHARP MZ-700 


1) RUBRICA (D B.) 

Valvassori Romano 

V. dei Tiepolo 10 - Monteviale (VE) 

2) SALISCENDI 
Palombi Stefania 

V. G. Chiovenda 20 - Roma 

3) SLOT MACHINE 
Letizia dario 

V. M. Semmola 88 - Napoli 

4) TRIS 

Scarsoglio Mauro 

V. Don Giovine 40 - Alessandria 


5) ARCHIVIO 
Urtoler Ferdinando 

V. Soltenno 8 - Mantova 

6) ARPOSIO GOLF CLUB 
Arposio Alessandro 

V. de Lemene 32 - Milano 

7) JAZZI 
Marzano Marco 

V. del Caucaso 21 - Roma 

8) DISPERSIONI TERMICHE 
Monnanm Giacomo 

V. Mercurio 45 - Arezzo 

9) SCI ALPINO 
Altemani Alessandro 

V. I Maggio 28 - Castel d'Azzano (VR) 

10) BIORITMI 
Costanzi Costantino 

V. della Birona 27 - Monza (MI) 

11) ELECTRONIC MASTER MIND 
Bonguerrieri Luca 

V. dei Platani 25 - Genova 

12) BOXE 

Moras Massimo 

V. F ili Bandiera 3 - Pordenone 


SEGA SC-300 

1) REALGOLF 
Frustaci Mario 

V. B. Dovizi 89 - Arezzo 

2) CALENDARIO PERPETUO 
Ciarimboli Paolo 

V. Chiappetti 1 - Jesi (AN) 

3) SUPERCAR 
D'Amato Antonello 

V. A Pollio 40 - Roma 

4) SPIDER 
Albanelli Franco 

V. Canova 1 - Castel Gomberto (VI) 

5) EFFETTI SONORI 
Molitiemo Davide 

V Podgora 6 - Viliorba (TV) 

6) ORGANO 
Cucé Arturo 

V. Mirulla Pistonma - Messina 

7) SEGA GRAPHICS 
Da Re Alessandro 

V. G. Galilei 6 - Cordenons (PN) 

8) CONGO 
Torchio Cristiano 

V. Vizzotto 8 - S. Dona di Piave (VE) 

9) BATTAGLIA AEREA 
Masci Enzo 

V. Casetta Mattei 69 - Roma 

10) SUPER MASTER MINO 
Canta Fabio 

V. dei Romagnoli 35 - Ostia Lido (Roma 

11) ASTRO WAR 
Forestiero Saveno 

V. M. Conero 1/A - Roma 

12) PIANOFORTE 
Grandis Enrico 

V. Colli Euganei 15 - Battaglia (PD) 

13) TIRO A VOLO 
Grandis Si mone 

V. Colli Euganei 15 - Battaglia (PD) 


14) WILD WORD 
Romani Giovanni 
V. S. Nicolao 64 - Lucca 


MPFII 


1) MASTER MINO 
Marinelli Massimo 

V. Filomusi Guelfi 20 - Roma 

2) CONTRAEREA 
Broussard Alfredo 

V. Valle 41 - Dossobuono (VR) 


Vie 20 

1) TASTI DI FUNZIONE 
Ronconi Stefano 

V. A Costa 2 - Novate Milanese (MI) 

2) FORMULA UNO 
Ariaudo Angelo 

P.zza De Angeli 2 - Milano 

3) BIORITMI 
Demaria Paolo 

V. Sciesa 14 - Venaria (TO) 

4) CALENDARIO 
Mele Paolo 

V. Re David 178/F - Bari 

5) CHE NUMERO É7 
Quaranta Isidoro 

V. G. Matteotti 7 - Pagani (SA) 

6) IL GIOCO DEL 15! 

Milandri Fabrizio 
V. Icaro 25 - Forti 

7) BRUCE 

Farinelli Alessandro 
V. Valdossola 28 - Bologna 

8) SERIE A 
Casagnai Antonello 

V.le Sicilia 77 - Caltamssetta 

9) CRAZY WORD 
Burgio Giuseppe 

V. Marco D'Oggiono 4 - Milano 

10) SIMULALUNA MM 
Maniscalco Marco 

V. L Folgore 12 - Roma 

11) GLI ARTICOLI 
Vesco Gaetano 

P.zza Capelvenere 1 - Ribera (AG) 

12) IL SERPENTE 
Mariani Simone 

L.go Marina 36 - Ostra (AN) 

13) CAPITALI EUROPEE 
De Gisi Fernando Pietro 

Ctr. da Tiratore 8/B - Atrtpalda (AV) 

14) CONCERTO 
D'Acunto Roberto 

V. Miano 17 - Scauri (LT) 

15) IL NUMERO 
Tudini Vasco 

V. Cicerone - Latina 

16) GRAFIC 
D'Urso Giulio 

V. G. Lorenzoni 6 - Firenze 

17) FISHERMAN 
Nardini Luca 

V. Colle Permo 63 - Velletri (Roma) 
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Micro al Cremlino 

Nel proprio Piano Quinquennale Scolastico, l’Unione 
Sovietica ha stanziato l’acquisto di un milione di 
micro-computers, scatenando quella che è già stata 
ribattezzata la «corsa all’Est» delle Case produttrici 
britanniche. 

Per il momento al primo posto nella lista delle 
«pretendenti» figura, sorprendentemente, la 
MEMOTECH, seguita a ruota dal Consorzio Spectrum 
URSS. 

Delle due la prima sembra comunque già sicura 
dell’appalto visto che dopo l'incontro avuto a Mosca con i 
responsabili sovietici, ha dato il via alla produzione di 
tastiere e ROM «cirilliche» per la propria gramma di 
computers modello MTX; la seconda, da parte sua, non 
sembra però aver perso tutte le speranze adducendo a 
proprio favore la tesi che circa centomila Spectrum sono 
già stati non ufficialmente esportati nei Paesi dell’Est. 


Il «Daily Mirrar» acquista la Sinclair 

Sempre più insistenti sono le voci secondo cui la Sinclair, 
il più importante gruppo informatico britannico, sarebbe 
stato ceduto al proprietario del quotidiano «Daily Mirror», 
Robert Maxwell titolare del gruppo editoriale Pergamon 
Press. 

Secondo le indiscrezioni filtrate in Italia, il nuovo 
proprietario dovrebbe sottoscrivere un aumento di 
capitale per la somma di 12 milioni di sterline ed assumere 
la presidenza della società, detenendo il 75% delle azioni 
contro l’85% attualmente detenuto da Sir dive Sinclair. A 
causa dell’altissimo livello di invenduto negli ultimi due 
anni la valutazione finanziaria della Sinclair è scesa da 130 
milioni di sterline a soli 16 milioni. Sir dive dovrebbe in 
ogni caso rimanere presidente norario della società 
continuando a detenere il 15% delle azioni. 

La gestione della Sinclair - Maxwell dovrebbe avvenire 
per il tramite della società Hollis Brothers (quotata alla 
borsa di Londra) specializzata nel commercio di legname 
e in forniture di mobili per ufficio. 


Nuova rete Interbancaria 

Il Consorzio SESIT, formato dalla ITALTEL e dalla SESA 
ITALIA, fornirà alla SIP i sistemi e le apparecchiature per le 
rete di trasmissione dati della SIA - Società Interbancaria 
per l’Automazione - che inizialmente, collegherà circa 50 
banche e verrà estesa, entro il 1986, al servizio 
BANCOMAT in tutta Italia. 

Le richieste di denaro ai terminali BANCOMAT verranno 
così registrate in tempo reale nei computers delle varie 
banche, assicurando la protezione e la correttezza delle 
operazioni. Sarà inoltre possibile collegare anche i 
registratori di cassa con addebito automatico sul conto 
corrente, che, come in altri Paesi, inizieranno tra breve ad 
essere utilizzati in alcuni negozi, grandi magazzini e 
supermercati italiani. 

La rete avrà tre nodi: Milano, Verona, Roma. 


La SIA utilizzerà il sistema DPS 25 a «commutazione di 
pacchetto». 

Questa tecnica consente di far «parlare» tra loro terminali 
e computers ad una velocità dieci volte superiore rispetto 
alle normali reti telefoniche ed a costi molto inferiori. 


10 parlo LOGO... 

Per tutti i lettori interessati al LOGO ed alla rubrica «I 
speak Logo» che regolarmente viene pubblicata sulle 
pagine di LIST, una notizia non certo freschissima, ma che 
rinnova la conferma della disponibilità dal compilatore 
italiano per il LOGO. 

La Commodore Italia, in collaborazione con le Edizioni 
elettroniche VI FI Mondadori, ne ha realizzata la versione 
per il Commodore 64. 

11 LOGO, che trae origine da un altro linguaggio di 
programmazione, il LISP, è stato sviluppato da Seymour 
Paperi, docente di matematica presso il famoso 
Massachusetts Institute of Technology, sulle teorie 
dell’apprendimento del pedagogo Jean Piaget, ed ha lo 
scopo di avvicinare i giovanissimi al computer. 

Il LOGO in versione italiana si è inserito in modo 
preminente all’interno dei progetti di sperimentazione 
didattica LUCAS e 100 SCUOLE già realizzati nello scorso 
anno scolastico. 

La versione italiana, realizzata con la supervisione di 
Giovanni Lariccia, ricercatore del CNR, comprende oltre 
al disco contenente l’interprete LOGO, un manuale di 
apprendimento con un’appendice tecnica ed un dischetto 
di programmi di utilità generale. 

Per utilizzare il LOGO, il cui prezzo di vendita si aggira 
sulle 145.000 lire + IVA, è necessario disporre di un 
Commodore 64 completo di FLOPPY DISK DRIVE Mod. 
1541. 

Per ulteriori informazioni ci si può rivolgere a: 

OPINIONE - Tel. 02/8373081-8379287 



Un Fiore a Firenze 

A Firenze si chiama FIORE il progetto che collega, tramite 
fibre ottiche, tre sedi dell’Università. 

Si tratta di una rete locale a larga banda relizzata con un 
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cavo coassiale ed uno a 12 fibre ottiche. 

Il «Progetto Fiore», che si è concretizzato in 
collaborazione con l'Università di Firenze, la SIP e la 
SETTE, collega tre sedi dell’Ateneo - Centro di Calcolo, 
Centro Didattico Televisivo, Facoltà di Ingegneria - che 
sono dislocate a circa un chilometro e mezzo di distanza 
tra di loro. 

Nei prossimi mesi la fibra ottica sarà estesa fino alla sede 
del Rettorato, con un percorso di ulteriori cinque 
chilometri. È inoltre prevista una ulteriore espansione in 
dipendenza delle esigenze operative dell’Università. 


L’informatica e il notaio 

Lo studio del notaio può essere completamente 
informatizzato con un personal computer e un programma 
chiamato «Nota» prodotto dalla Italsiel. Il programma è 
disponibile sul mercato per un accordo di distribuzione 
con la IBM. La società americana, infatti, distribuisce 
questo programma prodotto dalla Italsiel perché è 
compatibile con i suoi personal. 

Il programma costa circa 5 milioni di lire è diviso in moduli, 
ognuno dei quali prende in considerazione una particolare 
attività dello studio notarile, dalla istruttoria delle pratiche 
alla gestione dello studio. I moduli possono essere 
aggiornati con il passare del tempo in base alle nuove 
normative. 


Olivetti acquista Acorn 

L’italiana OLIVETTI è giunta in soccorso della britannica 
ACORN acquistandone il 49% delle azioni. 


Le acque in cui la nota casa navigava non erano ormai 
certo tranquille: 47 milioni di sterline di indebitamento; 
valore delle proprie azioni sceso drasticamente da 193 a 
28; 10 milioni di sterline perduti nel tentativo di entrare nel 
mercato informatico statunitense. 

La OLIVETTI ha acquistato quasi la metà della Società per 
10 milioni di sterline (circa 24 miliardi di lire). 

Alex Reid, nuovo presidente della ACORN, ha dichiarato 
che i dodoci mesi a seguire non saranno certo facili per la 
Compagnia, ma che comunque questa sopravviverà 
grazie anche ad una ristrutturazione che prevede la 
creazione di quattro diverse divisioni - Educativa, 
Consumistica, Scientifica, Industriale. 

L’ELECTRON continuerà ad essere venduto unitamente al 
proprio Disk Drive, ma date le giacenze di magazzino 
probabilmente non rientrerà in produzione. 


Milioni di colori nel computer 

La capacità grafica di un nuovo computer della 
Hewlett-Packard, il 9000/550, supera di gran lunga quella 
dell’arcobaleno. Con questa macchina, infatti, sono 
possibili sedici milioni di sfumature di colore. Questo 
numero così alto di sfumature può essere ottenuto 
cambiando 16 tavolozze diverse ognuna con 256 colori. 


Ipercubo computerizzato 

La società americana Intel sta per avviare la costruzione di 
una nuova famiglia di computers per applicazioni 
scientifiche. La nuova «architettura» del progetto 
permetterà di ridurre sensibilmente i costi di questi 
computers ad alta velocità e ad alto potenziale. Le nuove 
macchine sono composte da 32, 64 o 128 


Un genio alla tastiera 

Il Centro Archimede, fondato dal Gruppo Fininvest e 
dall’ltalturist, ha concluso il concorso: «Forse c’è un genio 
alla tastiera del tuo personal computer». 

La prima manifestazione del genere in Europa, ha avuto 
come scenario, dal 29 giugno al 6 luglio, l’isola di Ustica. 
L’obiettivo maggiore del concorso era incentivare la 
produzione italiana di software, e sia privati, sia società 
hanno aderito alla manifestazione, inviando programmi 
inediti e realizzati in Italia su ogni tipo di sistema. 

La selezione è stata effettuata dall’Istituto di Cibernetica 
dell’Università di Milano ed al termine una giuria popolare 
ha assegnato al vincitore un floppy disk d’oro (del valore 
di un milione) e floppy disk d’argento e di bronzo al 
secondo e terzo classificato. 

Il Centro Archimede organizzerà durante l’anno, seminari 
e workshop sulla ricerca informatica nel mondo e prevede 
di ripetere ogni anno a Ustica, nei primi di luglio, il Festival 
del Software. 

Il primo workshop d’autunno si svolgerà dal 3 al 13 
settembre, sempre ad Ustica e sarà imperniato sulla 
ricerca nel campo delle macchine di riduzione 
(REDUCTION MACHINES), cioè le nuove generazioni di 


computers; un tema che non è stato ancora affrontato in 
maniera organica nel nostro paese. Si prevede sarà un 
ottimo modo di presentarsi e farsi conoscere dal Centro 
Archimede. 
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microcomputers collegati tra loro e idealmente disposti in 
altrettanti nodi di un reticolo cubico. Ogni «nodo» è 
collegato a quello adiacente attraverso sistemi di 
connessione che funzionano ad alta velocità. 
L'hypercube, così si chiama il sistema è stato messo a 
punto dall’Istituto Californiano in collaborazione con due 
Agenzie governative, quella dell’Energia e quella della 
Difesa (Darpa) che si occupano di ricerche avanzate in 
settori molto sofisticati delle nuove tecnologie. Il sistema 
con 32 nodi contiene 16 megabytes di memoria, quello da 
64 nodi 32 megabytes e quello con 128 nodi 64 
megabytes. Qui la velocità massima di funzionamento va 
da 2, 4 a 8 megaflops (milioni di operazioni al secondo). 
Un super computer con dieci megaflops costa oggi 40 
miliardi di lire. 


Cambieremo le tastiere? 

La tradizionale disposizione delle lettere sui tasti delle 
macchine da scrivere e dei computers potrebbe 
cambiare. Lo afferma uno studioso americano che ha 
condotto una ricerca in questo senso per l’Università di 
Stanford. Secondo il ricercatore americano, che si chiama 
Paul David, la disposizione tradizionale delle lettere della 
prima fila dei tasti farebbe perdere tempo prezioso a chi 
scrive. Una disposizione diversa e più razionale, di cui si 
parlò già negli anni ’40, potrebbe consentire, secondo 
David, un aumento nella velocità di battuta che va dal 20 al 
40%. 


Il computer ha il primo museo 

È un museo davvero particolare quello che è stato creato 
a Boston di recente. Il Museo, che è stato sistemato in un 
grande edificio sul porto della città, raccoglie i computers 
più antichi. Il pezzo «più vecchio» ha solo 35 anni ma può 
essere considerato preistoria. 

Il museo è diviso in quattro settori sistemati in ordine 


cronologico e comprende anche una biblioteca, un 
auditorium e saloni per convegni e rassegne. Tra i cimeli 
del museo del computer di Boston c’è anche il 
famosissimo elaboratore Univac, una enorme 
apparecchiatura a valvole che previde la vittoria di 
Eisenhower contro Stevenson nelle elezioni americane del 
1952 con il sistema delle proiezioni che oggi sono 
diventate un fatto molto comune. Tra le apparecchiature 
espost c’è anche il primo computer con memoria interna, 
il «whirlwind», che era stato costruito per la Marina 
statunitense e che occupava un intero edificio del MIT, a 
Cambridge. La Marina americana usò questo computer 
anche come primo simulatore di volo realizzato nel 
mondo. L’arco di tempo preso in considerazione per 
ordinare il materiale che il Museo espone, parte dagli anni 
'50 per arrivare ai computers della quinta generazione. 


Sharp MZ 700....a colori! 

Dovrebbero esser finiti i guai per tutti i possessori dello 
Sharp MZ 700, desiderosi di poter usare il proprio 
computer per applicazioni grafiche. 

La REMAT Elettronica s.r.l commercializza un’espansione 
grafica di propria produzione adatta proprio allo Sharp 
MZ. 

Secondo le notizie (poche) pervenuteci, si tratta di una 
scheda hardware la cui gestione avviene tramite 
appropiato software. Le possibilità offerte dal KIT sono: 
pagina grafica in alta risoluzione da 320 * 200 pixels in 
modo MULTICOLOR (8 colori + 8 colori di sfondo). 
Programma di gestione in Linguaggio Macchina 
richiamabile da Basic. Possibilità di usare l’istruzione 
PRINT in pagina grafica. 

Istruzioni grafiche per tracciare punti e linee in alta 
risoluzione (PLOT e LINE). 

Possibilità di definizione di figure animate (SPRITE). 

Non si conosce la data di inizio distribuzione del prodotto, 
né tantomeno il suo prezzo. 

Per informazioni ci si può rivolgere alla REMAT Elettronica 
s.r.l. Via Monte Trina 2 - 00141 ROMA - Tel. 06/899007. 


SOFT AID PER L’ETIOPIA 

La annunciata raccolta di programmi su cassetta «FEED 
THE WORLD» (da una strofa del famosissimo singolo 
della BAND AID - presente come estratto sulla cassetta 
stessa, n.d.r.) i cui proventi saranno destinati al BAND AID 
ETHIOPIAN APPEAL FUND di Bob Geldof, è finalmente in 
vendita. 

I TOP TITLES contenuti sono dieci e la cassetta è 
disponibile in due versioni: per lo ZX-SPECTRUM e per il 
CBM 64. 

Rod Cousens della QUICKSILVA, la nota Software House 
che ha indetto l’iniziativa - alla quale hanno aderito le 
maggiori case produttrici di software britanniche, fra le 
quali la OCEAN, la U.S. GOLD, la MELBOURNE HOUSE, 
la VIRGIN, la BUG BYTE - spera che questa frutti almeno 
200.000 sterline (circa mezzo miliardo di lire). 
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Corso di computer grafica 

Lo Studio P DESIGN di Milano organizza per il quarto 
anno consecutivo dei corsi di Computer Grafica finalizzati 
alla progettazione grafica, alla creazione di animazione e 
di spot pubblicitari e televisivi, all’ideazione di sigle 
televisive ed alla creazione di disegni per tessuti e per il 
loro decoro in genere. 


I corsi hanno la durata di quattro mesi e vi è la possibilità di 
scelta fra corso diurno e serale. 

Le lezioni sono sia teoriche che pratiche con 
apprendimento e verifiche direttamente al computer e 
sono strutturate in modo da poter essere frequentate 
anche da persone che non abbiano conoscenze 
specifiche in campo informatico. 


SPECTRUMFORM Informatica e Sport 


Dal 1° Settembre 1985 prenderà il via a Genzano, 
provincia di Roma, il primo Computer Sporting Camp che 
si protrarrà per 15 giorni, proponendo agli intervenuti, 
ragazzi con età compresa tra i 12 ed i 18 anni, una serie di 
attività comprendenti tra l’altro corsi di informatica e 
manifestazioni sportive. 

Gli organizzatori della manifestazione riprendendo il 
classico motto «Mens sana in corpore sano», intendono 
creare un connubio tra l’alta tecnologia, tipica del settore 
informatico, e la socialità dello Sport. 

A detta degli organizzatori, questo sarebbe uno dei modi 
per eliminare le distonie tipiche degli adolescenti, spesso 
troppo dediti all’uso incontrollato del computer e spesso 
purtroppo affetti dalla cosiddetta «Sindrome da 
Videogame». 

Il gruppo organizzatore SPECTRUM, opera nel campo 
dell'ingegneria informatica con oltre 100 collaboratori 
qualificati ed in più sedi sparse sul territorio nazionale, e 
tra i propri programmi di ricerca sono comprese anche 
molteplici applicazioni deN’informatica nel mondo 
sportivo. 

Lo SPECTRUMFORM è una ulteriore branca del gruppo 
tendente a far fronte alla crescente domanda di ricerca e 
formazione nello scenario attuale, caratterizzato da una 
continua evoluzione tecnologica che si esplica anche e 
soprattutto nel trattamento delle informazioni. 

Sulle motivazioni di una tale manifestazione, nella 
conferenza stampa di presentazione svoltasi a Genzano in 
Giugno, i relatori hanno ribadito come, in un momento in 
cui il Ministero della Pubblica Istruzione rivolge una 
particolare attenzione all’introduzione dell’informatica 
nelle scuole, è importante che anche al di fuori dell’attività 
scolastica siano avviate iniziative formative. 

Lo SPECTRUMFORM in unione all’Istituto E. Fermi di 
Roma ed a due Istituti Privati, offre in occasione del 
Computer Sporting Camp, delle borse di studio per la 
partecipazione allo Stage. 

Il Comitato organizzatore si compone di vari esponenti del 
campo informatico e sportivo, addirittura in alcuni casi 
facenti parte di entrambi. 

In una breve intervista rilasciata daH’Amm. Del. dello 
SPECTRUMFORM Aldo Borelli, ex dirigente della 
Italcable, ci è stato spiegato come molti dei migliori 
programmatori del gruppo SPECTRUM siano proprio 
degli sportivi; una ulteriore conferma quindi che l’aspetto 
ricreativo dello Sport è importante per una corretta 
formazione mentale. Proprio per tale motivo le attività 
sportive del Camp sono intese come momento di 
aggregazione in alternativa allo stressante agonismo di 
manifestazioni simili. 

Al Camp di Settembre interverranno numerosi esponenti 


di entrambi i settori a cui si fa riferimento, ed in particolare: 
Aldo Borelli 

Laureato in Scienze Statistiche, in Business 
Administration e in Ingegneria dei sistemi di calcolo e 
controllo. Ha insegnato Esercitazioni di calcolo delle 
probabilità presso la facoltà di Scienze Statistiche 
dell’Università di Roma ed ha diretto il Corso di Analisi di 
Ricerca Operativa Militare presso il Comitato Tecnico 
Scientifico della Difesa. 

DorothyA. Walsh 

Laureata e specailizzata in Matematica ed in Metodi 
numerici e Ricerca operativa. Opera da 30 anni come 
consulente Data Processing e negli ultimi 12 anni ha 
esercitato la propria attività presso la Olivetti, Italcable, 
Telettra. Ha lavorato per il Ministero della Difesa 
Americano, È autrice di oltre 40 relazioni, articoli e libri, 
ultimo dei quali è: «La programmazione in Pascal» 
pubblicato da Franco Angeli (1982). Nel primo Computer 
Sporting Camp ricopre la carica di Direttrice Didattica. 
Enzo Viggiani 

Ricopra la carica di Coordinatore, ricopre cariche 
dirigenziali all’interno della FIN (Federazione Italiana 
Nuoto) e della Federazione Italiana Gioco Tennis. 

Gestisce gli Impianti sportivi messi a disposizione ai 
partecipanti del Camp per lo svolgimento delle attività. Di 
sua iniziativa è stata la creazione del Centro Medico che 
assisterà i giovani aderenti alla manifestazione. 

Riccardo Urbani 

Nel primo Computer Sporting Camp ricopre la carica di 
Direttore Sportivo. È campione e primatista italiano dei 
100 farfalla nel 1978 e 1979; ha fatto parte della 
Rappresentativa Nazionale dal 1973 al 1981. 

Cristina Quintarelli 

Campionessa e primatista italiana assoluta nei 200 
farfalla; ha fatto parte della rappresentativa nazionale dal 
1977 al 1984. Ha partecipato ai Campionati Europei di 
Spalato nel 1979 ed alle Olimpiadi di Los Angeles nel 
1984. Nel Computer Sporting Camp ricopre la carica di 
responsabile del settore Nuoto. 

Altri responsabili sportivi sono: 

Massimo de Nino per il settore subacqueo e Massimiliano 
Bini per il Tennis. 

È prevista la partecipazione di altri esponenti del mondo 
sportivo, tra cui Renzo Tombolato per il Basket e Gennaro 
Cirillo, olimpionico a Los Angeles per il canottaggio. 

Per informazioni riguardanti il Camp, patrocinato dalla 
SGS-ATES semiconduttori, ed in cui saranno usati 
elaboratori Honeywell, Digital, IBM, ci si può rivolgere a: 
SEGRETERIA COMPUTER SPORTING CAMP 
SPECTRUMFORM - Via Rufelli 81/83 Ariccia (RM) - Tel.: 
06/9342777. 
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SNIA BPD ancora nello spazio con Ariane 

La Snia Bpd italiana e la Sep francese, le due maggiori 
società europee nel campo della propulsione spaziale, 
hanno firmato di recente a Parigi il protocollo di 
accordo che le unisce, in modo paritetico, in un 
consorzio che gestirà i programmi europei di 
propulsione spaziale a solido nei prossimi decenni. 
Una prima applicazione dell’accordo ci sarà nello 
sviluppo e nella produzione dei due motori che 
costituiscono il primo stadio di Ariane 5, successore 
dell’attuale lanciatore spaziale europeo. I motori, la cui 
progettazione si avvale di sofisticate tecnologie 
informatiche, pesano ciascuno 200 tonnellate e 
verranno studiati da un gruppo misto a Colleferro, non 
lontano da Roma. 


Sono USA i computers superveloci 

La Bolt Beranek & Newman e la Thinking Machines 
Corporation hanno presentato, a Boston, due prototipi 
di computer della quinta generazione. Di questi 
computer si era parlato a lungo negli ultimi anni. I due 
progetti, che sono in stato avanzato per la produzione 
industriale, sono stati finanziati dalla Darpa, l’Agenzia 
statunitense della Difesa per avanzati progetti di 
ricerca, che coordina lo sviluppo delle nuove 
tecnologie e che sarà l’utilizzatrice finale dei due nuovi 
velocissimi computers. Le due macchine lavorano in 
parallelo, elaborano in sostanza le informazioni con reti 
di chips attivate contemporaneamente garantendo 
velocità di calcolo dieci volte superiori ai più potenti 
computers attuali. 


CONOSCENZA E DEDUZIONE 

La Delphi di Viareggio è diventata capocommessa per 
il progetto Esprit P440 chiamato Message Passing 
Architectures and Description System il cui valore è 
stimato, in ECU, la moneta europea, in oltre sette 
miliardi. Responsabile del progetto è il prof. Giuseppe 
Attardi docente di informatica presso l’università di 
Pisa e vicepresidente della Delphi. Attardi, che in 
passato ha lavorato a lungo al MIT di Boston, ha come 
partners il prof. Lue Steels e il dott. Dominique Genin 
che rappresentano rispettivamente l’Artificial 
Intelligence Laboratory di Bruxelles e la Bell Telephone 
di Anversa. Obiettivo del progetto è la realizzazione di 
sistemi per la rappresentazione della conoscenza e per 
la deduzione. 


Banche e informatica 

L’AICA, l’associazione italiana per l’informatica e il 
calcolo automatico, ha promosso una giornata di 
studio sulla evoluzione dell’informatica nei servizi 
bancari. Sono stati discussi in particolare gli aspetti del 
decentramento di un sistema informatico e della sua 
distribuzione nel raggio d’azione di un istituto bancario. 
Al Convegno, che ha trattato uno degli aspetti peculiari 
delle applicazioni informatiche in questo settore, hanno 
partecipato rappresentanti di molti istituti di credito 
italiani. 


L’Alfa 90 ha un computer a bordo 

A meno di un anno dalla sua immissione sul mercato 
l’Alfa 90 ha una nuova versione. L’auto, che per il 
momento è destinata al solo mercato italiano si 
differenzia dalla prima per molti particolari tecnici. In 
particolare per il controllo elettronico 
dell’alimentazione e dell’accensione. Il sistema, 
contraddistinto dalla sigla CEM, è stato progettato e 
realizzato dai ricercatori della casa di Arese che sono 
esperti in «autonica» una nuova branca della scienza 
elettronica che si occupa della applicazione all’auto 
delle tecnologie più sofisticate e più avanzate in questo 
campo. 


Il minicomputer è francese 

Una delle più famose e autorevoli società di informatica 
francesi, la Bull, ha messo a punto il primo 
minicomputer a multiprocessore per applicazioni 
scientifiche e industriali. Il minicomputer, che costerà 
dai centomila ai trecentomila franchi francesi, è stato 
messo a punto dalla Bull insieme con l’Inria e il Cnet, 
due istituti nazionali francesi di ricerca per le 
telecomunicazioni e l’informatica. La produzione, per 
ora, sarà di un migliaio di esemplari ogni anno che 
verranno realizzati dalla fabbrica che la Bull ha vicino a 
Grenoble. Secondo i progettisti francesi il 
minicomputer di casa loro è il primo al mondo ad avere 
realizzato la fusione tra una struttura a 
multimicroprocessore e il sistema operativo «Unix» 
della Bell-Att. Il nuovo computer è anche destinato al 
settore Cad-Cam, ovvero la progettazione e la 
fabbricazione assistita da elaboratore. È questo, un 
mercato che per l’88 i francesi valutano in 40 miliardi di 
franchi. 
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a cura di Antonella Corica 


Date le numerosissime richieste scritte pervenute in Redazione, riguardanti informazioni su 
letteratura specializzata in merito allo ZX-SPECTRUM, la nostra rubrica dedicata ai libri presenta 
questo mese tre opere per il ben noto e diffuso computer «baronetto». 


DAVID WEBB 

Supercharge Your Spectrum - 

Potenziate II Vostro Spectrum 

Melbourne House Publishers/ 

Edizioni J C E Milano 

Prezzo L. 30.000 

Senz’altro tutti i possessori di micro 
computers avranno, anche una sola 
volta, acquistato programmi su 
cassetta dei quali avranno 
apprezzato - ed invidiato! - le 
differenze nella velocità di 
esecuzione e negli effetti esistenti fra 
un programma in Linguaggio 
Macchina ed uno in BASIC. 

Questo libro presentando delle 
routines in Codice Macchina pronte 
per essere utilizzate, risulterà dunque 
di valido aiuto a chi intenda 
potenziare i propri programmi con la 
«carica» del L.M., pur senza 
conoscere quest’ultimo. Le routines 
illustrate, delle quali l’autore fornisce 
esauriente spiegazione, 
permetteranno all’utente di superare 
determinate limitazioni del BASIC - 
che interessano soprattutto grafica, 
effetti sonori ed effetti speciali (ad es. 
scroll verticale ed orizzontale) - 
velocizzandone al massimo 
l’esecuzione. 

Per utilizzare le routines presentate 
non è necesaria alcuna specifica 
cognizione: nei primi capitoli del libro 
vengono infatti fornite tutte le 
indicazioni necessarie - quali 
informazioni, programmi, tecniche- 
per poterle inserire direttamente nei 
propri programmi BASIC. 

Fra le tante routines a disposizione 
oltre a quelle già menzionate, 
segnaliamo la routine per la 
riproduzione da computer della 
propria voce, quella per la 
rinumerazione dei programmi 
comprese istruzioni di GOTO e 
GOSUB e la routine per la 
ridefinizione del Set di caratteri. 
Webb ha inoltre voluto includere una 
lista completa delle istruzioni POKE e 


delle variabili di sistema più utili. 
Come già detto il libro si presta 
all’utilizzo immediato di 
programmatori «novizi», ma nel caso 
l’utente abbia per proprio conto 
approfondito lo studio del Linguaggio 
Macchina sarà comunque utilissimo 
al fine di ampliare le proprie 
conoscenze in merito: l’autore ha 
infatti voluto includere per ogni 
routine anche il listato, 
completamente commentato, in 
Assembler. 



MARCEL HENROT- JACQUES 

BOISGONTIER 

Lo ZX-Spectrum per tutti 

Iniziazione e Programmi 
E.P.S.I. Edizioni - Milano 
Prezzo L. 13.000 

Questo libro è stato espressamente 
studiato per quanti si siamo appena 
avvicinati al mondo dei computers e 
si trovino quindi nella condizione di 
dover imparare ad utilizzare il proprio 
Spectrum. 

Dalla descrizione dei primi «contatti», 
gli autori passano man mano 
all’analisi della struttura del computer 


e quindi allo studio del BASIC. 

Le istruzioni e funzioni più importanti 
sono egregiamente sviluppate e tutte 
riprese in Appendice dove sono 
accompagnate da commenti ed 
esempi. 

Sempre in Appendice vengono date 
varie note riguardanti argomenti 
particolari, quali la definizione di 
nuovi Sets di caratteri e l’estensione 
dei grafici definiti dall’utente. 
Tornando all’analisi del BASIC 
proprio dello Spectrum, ogni 
istruzione e funzione è corredata da 
piccoli programmi esplicativi. 

Nel suo complesso il libro è in effetti 
un normale manuale d’uso, però 
rispetto ad altri già da tempo 
disponibili sul mercato librario, 
presenta una sostanziale novità fra gli 
argomenti trattati. L’ultimo capitolo 
infatti riguarda l’ormai famoso 
linguaggio LOGO e fornisce un 
programma - MINILOGO - che 
permette all’utente di familiarizzare 
con questo affascinante linguaggio 
«evoluto». 

Anche in questo caso il listato è 
dettagliatamente spiegato dal punto 
di vista della struttura e vengono 
fornite istruzioni sul suo 
funzionamento ed impiego, 
unitamente ad alcuni esempi pratici. 


MARCEL HENROT • JACQUES BOISGONTIER 





















PRESENTIAMO, IN QUESTO 
NUMERO DELLA NOSTRA 
RUBRICA DEDICATA AL 
SOFTWARE, UNA SERIE DI 
PROGRAMMI PER I 
COMPUTERS SHARP DELLA 
SERIE MZ 700 FACENTI PARTE 
DEL CATOLOGO DELLA 
SOFTWARE HOUSE 
BRITANNICA SOLO SOFTWARE, 
CHE COMPRENDE FRA GIOCHI, 
PROGRAMMI APPLICATIVI ED 
EDUCATIVI OLTRE 100 TITOLI. 


CHESS 

Il classico dei giochi da tavolo è, in 
questa versione per SHARP, adatto 
sia al giocatore principiante sia al più 
esperto, dato che il programma si 
presta a tre diverse possibilità di 
utilizzo: 

1 - come arbitro durante una partita 
fra due giocatori al fine di avere 
conferma sulla validità delle mosse e 
in situazioni di Scacco o Scacco 
Matto; 

2 - come aiuto nell’apprendimento 
del gioco dando la possibilità 
all’utente, durante lo svolgimento di 
una partita su vera scacchiera, di 
visualizzare le mosse migliori in caso 
di difficoltà, o addirittura di 
selezionare una partita per farla 
giocare al computer contro se stesso 
e studiarne l’andamento; 

3 - come giocatore avversario con 
possibilità di scelta fra ben 
quattordici diversi livelli di difficoltà. 
Nel caso si desideri interrompere una 
partita e riprenderla in un secondo 
tempo, il programma offre la 
possibilità di salvarla su nastro come 
file da richiamare a proprio 
piacimento. 

È inoltre possibile ottenere la 
visualizzazione di tutte le mosse fatte 
durante una partita, il che risulterà 
utilissimo a quanti amino studiare le 
grandi sfide fra campioni e/o la 
strategia dei Maestri. 



SPACE PANIC 

Dei voracissimi Insetti Cosmici - gli 
Scarabei ROSSI, gli Scarabei VERDI 
e gli Scarabei BIANCHI - hanno 
raggiunto la Terra e stabilito il loro 
Quartier Generale in un vecchio 
magazzino dove, in attesa di rinforzi, 
si stanno preparando per sferrare 
l’attacco alle risorse naturali terrestri. 
Salendo e scendendo lungo le scale 
non ancora mangiucchiate dagli 
affamati inquilini, il Guardiano del 
deposito deve raggiungere i vari piani 
della costruzione e scavarvi delle 
buche dove far cadere e quindi 
seppellire gli insetti alieni. 

Il tutto potrebbe sembrare anche 
abbastanza semplice se per riuscire 
ad intrappolare i tre diversi tipi di 
Scarabei la procedura fosse la 
stessa: purtroppo non è così! 

Inoltre il povero Guardiano deve fare 
molta attenzione e seppellire 
prontamente gli Scarabei ROSSI i 
quali hanno la possibilità di uscire 
dalla buca dove sono caduti, se 
questa non viene appunto 
immediatamente ricoperta, e 
trasformarsi in Scarabei VERDI, più 
difficili da eliminare. 

Il programma è interamente in Codice 
Macchina e quindi estremamente 
veloce. 

Possibilità di gioco da joystick o da 
tastiera. 



NIGHTMARE PARK 

Una fantastica avventura sarà quella 
che vivrete una volta entrati nel Parco 
degli Incubi. 

Gli intricati viali che portano all’uscita 
del Parco, e quindi alla salvezza, 
nascondono insidie di ogni genere 
che devono essere superate per 
poter procedere nel gioco. Lungo 
tutto il cammino si deve dunque 
rimanere sempre all’erta, pronti a 
fronteggiare i vari ostacoli, anche se 
l’incognita della fortuna può 


comunque essere determinante. 

La grafica e gli effetti sonori di cui 
questo avvincente gioco è corredato 
sono sotto ogni punto di vista di 
ottima fattura. 



XANAGRAMS 

Un programma che piacerà 
senz’altro moltissimo agli amanti dei 
giochi enigmistici. 

Si deve riuscire ad indovinare delle 
parole rappresentate sullo schermo 
da caselle disposte in forma di parole 
crociate. Tutte le lettere necessarie 
alla «ricostruzione» delle parole 
vengono visualizzate, in ordine 
alfabetico, nella parte alta dello 
schermo e viene inoltre data al 
giocatore la possibilità di avere la 
lettera iniziale di una delle parole. 
Adatto a tutte le età, il gioco offre la 
possibilità di selezionare tre diversi 
livelli di difficoltà e per ognuno di essi 
la scelta da una a cinque parole. 



GALAXIANS 

Versione in Linguaggio Macchina, 
quindi molto veloce, del 
popolarissimo «Space Invaders». 
Gruppi di Alieni discendono in 
formazione dallo Spazio profondo 
alla conquista della Terra, tentando di 
distruggere le basi terrestri di difesa 
mediante vari tipi di bombe. Man 
mano che il gioco procede la velocità 
di discesa degli invasori aumenta ed 
il compito del giocatore diventa 
quindi più difficile. 
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Possibilità di gioco da joystick o da 
tastiera. 



FIGHTER COMMAND 

Seduti nella cabina del vostro 
Supersonico una dura missione vi 
attende: con il solo ausilio degli 
strumenti di volo dovete distruggere 
una squadriglia nemica in 
avvicinamento, formata da ben dieci 
caccia. 

Inserite il Radar a lungo raggio e 
localizzate gli aerei ostili quanto 
prima; quindi cercate di centrarli nel 
raggio di azione dei vostri missili per 
abbatterli. 


NUKEWAR 

Atari 400/800/1200,16K 
CBM 64 
VIC 20 + 16K 
TRS 80 1/11,16K 

(C) MICROCOMPUTER GAMES 
INC. 

Gioco di simulazione in cui i 
leaders delle nazioni 
democratiche tentano di 
salvaguardare il mondo della 
Guerra Atomica. Base del 
gioco la supposizione che la 
continua corsa ad armamenti 
sempre più sofisticati, 
portando all’accumulo nei 
depositi di armi a testata 
nucleare, potrebbe 
effettivamente scatenare un 
conflitto atomico. Ciò rende il 
gioco estremamente attuale 
anche se la speranza di tutti è 
che le Nazioni interessate 
facciano quanto in loro potere 
per scongiurare che questo 
accada realmente. 



Ma attenzione! Se vi avvicinate 
troppo alla squadriglia nemica 
correte il rischio di essere colpiti dai 
missili che i caccia vi lancieranno 
contro. 



territoriale: a bordo del vostro caccia 
dovete dunque raggiungerli ed 
abbatterli nel minor tempo posibile. 
Purtroppo a causa dei danni subiti 
dalla Base il carburante a 
disposizione ed il numero di 
munizioni di cui il vostro aereo è stato 
dotato sono limitati e quindi per poter 
portare a termine la vostra missione 
la massima efficienza ed attenzione 
sono importantissime. 

Nel caso la missione abbia esito 
positivo sarete proposti per un 
avanzamento di grado mentre, in 
caso contrario, saranno richieste le 
vostre dimissioni. 

Possibilità di gioco da joystick o da 
tastiera. 


LIGHTNING PATROL 

Scelto il proprio grado di 
appartenenza alla prestigiosa Royal 
Air Force (RAF), vi verrà 
immediatamente affidata una 
missione di importanza vitale per la 
Nazione. Dieci MIRAGE hanno 
attaccato la vostra Base, una delle 
più importanti del Paese, e presto 
saranno fuori dallo spazio aereo 



L GIOCO 

I display di base è dato da due 
mappe 8x8 rappresentanti la nazione 
del giocatore e quella dell’avversario, 
rappresentato dal computer. 
Inizialmente la mappa dell’avversario 
è per il giocatore una «tabula rasa» e 
la sua fisionomia si andrà formando 
poco a poco durante la fase di Guerra 
Fredda grazie alle informazioni 
comunicate dagli agenti segreti. La 
mappa del giocatore verrà ricostruita 
in modo del tutto simile dal 
computer-avversario. I riferimenti 
cifrati forniti dagli agenti segreti sono: 

C = città 

M = base missilistica 
B = base aviazione 
S = base missilistica sottomarina 
A = base ABM (missili 
anti-balistici) 

o = suburbio rurale o zona 
sconosciuta 

Nella versione per CBM 64 i 
riferimenti cifrati sono sostituiti da 
caratteri grafici (fig. 1). 

I punti di riferimento della mappa 
vengono dati da coppie di numeri, 
indicanti rispettivamente fila e 


colonna - es. 1,1. Nelle versioni CBM 
64 e Atari i numeri di colonna sono 
sostituiti da lettere - da A ad H - e le 
coordinate vengono date indicando 
la colonna per prima - es. H8. 
All’inizio del gioco il computer 
richiede i nomi delle nazioni che si 
fronteggiano, quindi passa 
all’elaborazione dei dati per il 
dislocamento di otto città e due basi 
- una missilistica ed una 
dell’aviazione - ciascuna. 

La prima fase di gioco è la cosiddetta 
Guerra Fredda, anni 1956/1965. 


GUERRA FREDDA 

All’inizio di ogni turno di gioco le 
mappe delle due nazioni vengono 
visualizzate nella configurazione 
attuale (ricordarsi che la mappa della 
nazione nemica contiene solo le 
informazioni di cui gli agenti sono 
entrati in possesso e quindi non è da 
considerarsi completa). 

Ad ogni turno il computer chiede il 
tipo di azione che si intende portare 
avanti - S = spionaggio, W = 
guerra, N = normale. 

Selezionando la procedura N si 
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ottengono due nuove basi e qualche 
informazione, di poco conto, sul 
nemico. 

Nel caso si richieda una azione di 
spionaggio questa costerà al 
giocatore una nuova base. 

Le dichiarazioni di guerra possono 
anche essere ignorate. 


NUOVE BASI 

Per la dislocazione delle nuove basi il 
computer richiede prima di tutto il 
tipo di base desiderata e quindi le 
coordinate del punto dove si vuole 
sistemarla. 

Il dislocamento delle basi deve 
seguire però alcune regole: 

1) una base‘S’non può essere 
impiantata prima del 1962 

2) una base ‘S’ deve essere 
impiantata lungo i confini 

3) una base ‘A’ non può essere 
impiantata prima del 1970. 


LA GUERRA ATOMICA 

Il conflitto nucleare può iniziare ad 
opera di entrambe le nazioni in gioco. 
Nel primo turno di gioco di questa 
fase, la nazione dichiara nte sarà 
avvantaggiata e potrà sferrare 
l’attacco prima che il «nemico» abbia 
avuto il tempo di organizzare la 
propria strategia. 


Se le due nazioni dichiarano guerra 
l’una all’altra contemporaneamente 
godranno dello stesso vantaggio. 

Nel caso sia il «nemico» a dichiarare 
aperto il conflitto, l’aiuto degli agenti 
- azione ‘S’ - eviterà la «sorpresa» 
del primo attacco. 

LE BASI 

Nel caso di dichiarazione di guerra, la 
prima cosa da fare è «attivare» le basi 
per prepararsi all’attacco 
deN’avversario e alla propria difesa. 
Anche in questa fase il computer 
guiderà le operazioni tramite le 
necessarie domande. 

Nel caso venga attivata una base 
missilistica, il computer fornirà 
l’elenco dei missili pronti per il lancio 
e richiederà per ognuno l’obiettivo da 
colpire. 

Nel caso venga richiesto l’intervento 
dell’Aviazione, verranno visualizzati 
l’elenco dei jets disponibili e la 
richiesta di quanti se ne vogliono 
destinare al combattimento; i restanti 
verranno considerati come 
bombardieri. 

Il tempo necessario ad un 
bombardiere per raggiungere 
l’obiettivo non è costante. 
Naturalmente durante il volo l’aereo 
subisce l’attacco dei caccia da difesa 
che sono sempre più potenti 
(+/- 20%), ma nel caso che riesca ad 
evitare la difesa nemica il 
bombardiere risulta l’arma strategica 


più affidabile fra quelle a disposizione. 
Le basi missilistiche sottomarine 
sono «immuni» dall’attacco, ma una 
volta richiesto il loro intervento 
necessitano anch’esse di un 
indeterminato periodo di tempo 
(= turni di gioco) per considerarsi 
operative. 


FINE DEL CONFLITTO 

Il conflitto può finire o grazie ad un 
negoziato o quando tutte le armi 
offensive sono state utilizzate. 

Il negoziato può essere richiesto dal 
Primo Ministro della nazione 
avversaria con una chiamata sulla 
cosiddetta Hot Line. 


IL VINCITORE 

Viene dichiarata vincitrice la nazione 
che alla fine del conflitto abbia subito 
meno perdite fra la popolazione: le 
città contano, all’inizio del gioco, 11 
milioni di abitanti ciascuna mentre le 
altre zone un milione. 

Nel caso che l’opinione pubblica 
mondiale si schieri dalla parte della 
nazione attaccata, sarà più difficile 
per la nazione attaccante vincere il 
conflitto. 

Con la dichiarazione di vittoria 
vengono visualizzate le mappe delle 
due nazioni complete di tutte le 
informazioni esse riguardanti. 
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TSUKUBA 

Scienza come business 

di GIUSEPPE BREVEGUERI 



Avvenimento affascinante e 
importante insieme, Tsukuba non fà 
più notizia, ed è peccato. Dopo avere 
speso migliaia di parole e di immagini 
per i suoi robot, per i suoi treni veloci 
come palle di schioppo, per il suo 
televisore gigante, prima e dopo la 


sua apertura, su Tsukuba, adesso, è 
sceso il silenzio. Da metà Marzo ad 
oggi, la pianta gigante nella sua serra 
all’ombra, continua, governata da 
Himawari - un marchingegno 
elettronico che accumula, seleziona e 
dispensa raggi solari - a produrre 


migliaia di pomodori gradevolissimi e 
probabilmente continuerà a produrne 
a migliaia, fino a quando, a metà 
Settembre, questa Expò dagli occhi a 
mandorla chiuderà i battenti. Nello 
stesso tempo il grande calcolatore - 
un vero cervellone - che presiede a 
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gran parte delle attività di Tsukuba 
continua imperterrito a triplicare il 
numero dei visitatori della grande 
mostra perchè la sua fotocellula 
posta all’ingresso «conta» per ogni 
persona che le passa davanti, prima il 
braccio, poi il corpo e infine la gamba 
che, nel movimento, viene per ultima. 
È troppo sensibile, dicono gli 
organizzatori di questo bazar delle 
tecnologie di oggi e di domani, non 
c’è niente da fare. 

Tsukuba prende il nome da una 
montagna vicina a questa cittadella 
della scienza e della tecnologia che 
hanno le loro rappresentanze nelle 
più qualificate università e i più 
importanti centri di ricerca di tutto il 
Giappone. 

I giapponesi di un tempo credevano 
che la montagna fosse abitata dagli 
dei; dei che oggi resterebbero allibiti 
davanti alla praticità di questo popolo 
che ha ammantato di fantascientifica 
retorica un comunissimo «business» 
destinato a proiettare ed a allargare 
l’influenza produttiva del Giappone in 
tutto il mondo. 

D'accordo una 

Esposizione Universale non si 
organizza solo per regioni di prestigio 
o per beneficenza, ma gli 
organizzatori hanno guardato più al 
grosso pubblico che agli interessi 
della scienza e della tecnologia. 
Questa mancata tendenza a 
sottolineare l’aspetto commerciale 
della manifestazione ha deluso 
giornalisti e scienziati giapponesi che 
hanno accusato gli organizzatori di 
non aver dato spazio a qualche 
seminario sulla scienza e sulla 


tecnologia. 

In effetti il tema della Esposizione di 
Tsukuba «la casa e il suo ambiente - 
scienza e tecnologia al servizio 
dell’uomo e della sua abitazione» 
sembrava promettente. Anche 
l’obiettivo che gli organizzatori di 
Tsukuba hanno detto di perseguire, 
vale a dire l'armonia e la 
cooperazione internazionale con lo 
scambio di nozioni e di sistemi e 
tecnologici aveva suscitato una 
gradevole attesa. 

I contributi scientifici e tecnologici di 
tutti i paesi partecipanti, una 
quarantina, più la Comunità Europea, 
più decine di organizzazioni 
internazionali, senza contare la 
nutrita rappresentanza dell’industria 
e di grandi organizzazioni nipponiche 
facevano pensare ad una vera e 
propria concentrazione di cervelli e di 
proposte innovative che avrebbero 
sbalordito il mondo intero. Non è 
stato così. Le attese, almeno fino ad 
oggi, pare siano state in parte deluse, 
anche perchè - e questo è un segno 
distintivo di quasi tutte le esposizioni 
mondiali che si sono svolte nei 
decenni passati - le grandi 
Esposizioni difficilmente riescono a 
scrollarsi di dosso quella sgradevole 
caratteristica di grande Barnum, di 
fiera paesana, dove a bocca aperta 
restano solo gli sprovveduti. 

Tutto ciò non significa, sia chiaro, che 
Tsukuba è una occasione perduta. La 
sola robotica presentata nella 
cittadella della scienza giapponese 
meritava il viaggio. 

Dal robopulitore che pulisce tutto alla 
perfezione, gomme da masticare 


comprese anche se appiccicate al 
pavimento, al robot che dipinge a 
quello che suona Bach, a quello 
tuttofare per compagnia e per 
famiglie, i giapponesi hanno mostrato 
al mondo le grandi possibilità della 
robotica e della elettronica in tutti i 
settori. 

Tsukuba è stata «interpretata» dagli 
stranieri in maniera diversa. Tutti i 
paesi partecipanti si sono 
preoccupati soprattutto di presentare 
la loro immagine. Per nulla 
interessati, come i giapponesi, di 
trovare sbocchi alla strabiliante 
capacità di produrre della loro 
industria, gli stranieri hanno fatto di 
Tsukuba una vetrina per fare buona 
mostra della loro cultura e delle loro 
tradizioni in ogni campo. Per capirci 
nessun padiglione per sbalordire 
come quelli di Toshiba, di Hitachi, di 
Ibaraki, di Sumitomo, della Sony ma, 
come ha fatto l’Italia, per esempio; un 
poco di Leonardo, un poco di 
Brunelleschi, un poco di Rubbia, 
qualche modellino (la cupola di Santa 
Maria in Fiore a Firenze, il gasdotto 
Italia-Algeria, le navi posatubi 
Castoro 6), un orologio atomico, 
quello del Galileo Ferraris di Torino, la 
Ferrari Testarossa, il motore Fire 
1000 della Fiat e i modellino in legno e 
in grandezza naturale di tre 
«macchine» di Leonardo: «la nave a 
pale», «il carro automotore» e «la 
macchina a volare». 

Il rigore, per gli americani è arrivato 
all’essenziale: un padiglione pieno di 
macchine e di giovanotti tirati su a 
vitamine che parlano un giapponese 
da manuale. 
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di Sergio D'Ales io 


IL COMPUTER IN VIAGGIO 
FRA TECNOLOGIA E FANTASCIENZA 

NEL MONDO DEL 
PICCOLO E GRANDE SCHERMO 


Essendo praticamente esplosa anche in Italia la 
mania del micro & personal computer, sia per l’uso 
scolastico che per motivi professionali 
contabili-organizzativi, la televisione e il grande 
cinema di Hollywood non potevano mancare 
all’appuntamento infilandosi a pié pari in questo 
filone robotico-cibernetico-computerizzato che 
promette di regalarci emozioni ed effetti strabilianti a 
non finire anche all’inizio della stagione 
autunno-inverno 85/86. Noi, in questa sede, 
abbiamo cercato di analizzare e sintetizzare quattro 
specialissimi «campioni visivi» di successo che, 
affidandosi mani, piedi, software, hardware e 
fantasia al computer, hanno catturato l’attenzione 


2010, L’anno 


Uno dei films più attesi, celebrati, criticati, poi 
riscoperti ed amati dell’anno di fantascienza, attira la 
nostra attenzione in questo dossier perché il 
perfettissimo computer Hal-9000 è al nocciolo di 
tutta la vicenda. Innanzitutto una premessa 
doverosa e necessaria per tutti: il libro di Arthur C. 
Clarke, già autore della prima parte «2001, Odissea 
nello spazio», e la pellicola di Peter Hyams appaiono, 
ad un’attenta rilettura, opere molto diverse 
concettualmente, ma entrambe interessanti. 

Il libro dello scrittore venne originariamente scritto su 
di un microcomputer Archives III con un software 
Wordstar e poi inviato da Sri Lanka (Colombo) sino a 
New York tramite una diskette da cinque pollici. Le 
ultime correzioni al libro originario furono trasmesse 
per il tramite della Stazione Terrestre Padukka e 
dell’lntestat V sopra l’Oceano Indiano. Il libro, sin 
dalla sua prima edizione nel 1983, ricevette lodi 
incondizionate. Due anni più tardi Peter Hyams ebbe 


dei mass-media in maniera clamorosa, producendo 
degli utili dai nove zeri in sù. 

La nostra analisi ha finito 
necessariamente per scegliere due programmi 
televisivi, già notissimi, Supercar ed Automan, 
messi in onda da Italia 1, e due films interessanti 
come Electric Dreams e 2010, L’anno del 
contatto, ma probabilmente la nostra inchiesta è 
destinata ad allargarsi a macchia d’olio, in quanto nei 
prossimi numeri di LIST cercheremo di fare il punto 
della situazione anche sul campo d’intervento del 
computer nel settore dei video-clips musicali e in 
quello della musica registrata in studio. Ma questa è 
un’altra storia, chi vivrà vedrà... 


del contatto 


ufficialmente l’incarico dalla MGM di girare questo 
film: «Il nostro studio venne immediatamente 
rivestito dalla dicitura top-secret per tutti! lo mi 
dovevo attenere, per quanto possibile, al 
secondo libro di Clarke e al film originale. Fu un 
grosso problema. Non esisteva più niente della 
sceneggiatura di quel kolossal del 1967! Per la 
moderna tecnologia erano passati 18 anni (ndr. 
dal 1967 al 1985), ma la story-board portava la 
data di nove anni dopo, il 2010. L’astronave 
sovietica incaricata del recupero della Discovery 
fu, quindi, subito approntata con 
apparecchiature più sofisticate della Discovery, 
ma restava il problema, non semplice, di 
ricostruire fedelmente sul set l’astronave 
dispersa di 2001. 

Il computer ci è venuto in aiuto in maniera 
fantastica: riprendendo 50 fotogrammi della 
vecchia pellicola ed inserendoli in un computer, 
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abbiamo ottenuto un quadro alla rovescia 
dell’insieme. Con soli cinquanta fotogrammi, 
infatti, il Graphics ne ha poi elaborati oltre 
seimila, dandoci la possibilità di ricalcolare le 
dimensioni della Discovery e di ricostruire il set 
originario. La Joe’s Plastic di San Francisco ha 
disseminato la Leonov di tubi fluorescenti e 
pannelli grafici comandati a distanza da 
computers della Apple. Infine, grazie sempre ad 
un computer Graphics molto sofisticato, che 
c’indicava i punti più reconditi e inarrivabili 
deN’interno della Leonov, abbiamo girato con il 
braccio snodabile della Louma delle riprese 
fantastiche, mai realizzate precedentemente...». 
Alla fine il set di «2010, L’Anno del contatto» sembrò, 
ai primi giornalisti francesi de L’Écran Fantastique: 
«un parco di video-giochi perfettamente diretto e 
coordinato dal computer». Sicché oggi, tra scienza 
e fantascienza, la barriera si é talmente assottigliata 
da indurre più di un operatore del settore a ripetere 
l’esperimento. Il film narra le peripezie dell’astronave 




Arthur C. Clarke. seduto alla tastiera del suo micro-computer 
ARCHIVES III. mentre appone i ritocchi alla stesura del suo libro. 


sovietica Leonov che, giunta con tre scienziati 
americani ibernati a bordo, riscontra segni di vita 
sulla luna di Giove, la piccola ghiacciata Europa, 
sulla quale il computer fotografa a distanza, 
ingrandendo di volta in volta sul monitor la crescita di 
una primitiva alga in movimento... Il recupero della 
Discovery porta alla riattivazione del computer 
Hal-9000 da parte del dr. Chandra che sulla Terra 
aveva già provato l’esperimento sul computer 
gemello Sal-9000 della stessa serie. Hal-9000 pare 
ignorare ogni cosa, sino a quando l’apparire di 
un’enorme macchia nera gigante su Giove e il fugace 
avvertimento dell’astronauta Bowman non fanno 
naufragare l’intera missione: «Andate in pace, tutti 
questi mondi sono Vostri, ma non atterrate su 
Europa!». O ve ne pentirete parola di computer... Il 
futuro è già cominciato. 


AUTOMAN 


Il background di questa creatura fantascientifica 
uscita dai meandri della Twentieth Century Fox 
Television americana risiede nella fertile fantasia di 
mr. Donald Kushner, già creatore della mitica 
avventura di «Tron». Ma, al contrarfio di quella dove 
uomini in carne ed ossa entravano nel mondo dei 
computers, ora Kushner e il produttore Glen A. 
Larson riescono a tirar fuori dai circuiti e dai 
programmi della Apple Computers una creatura 
esistente solo graficamente e vivente in dimensioni 
differenti da quella umana. Walter Nebicker è il tipico 
esperto genialoide d’informatica che lavora presso la 
sezione EDP del Dipartimento di polizia di Los 
Angeles: un giorno, per puro spirito di ricerca, riesce 


a creare un ologramma con una gigantesca e 
tridimensionale figura elettronica che ha sembianze 
umane. L’essere si chiama Automan, è ricoperto da 
una patina grafica computerizzata luminosa e vive in 
un’altra dimensione fatta di numeri, dati, programmi: 
eppure, grazie ad un richiamo errato sulla tastiera, si 
materializza e viene catapultato nella dimensione 
umana! Nebicher gli affida il compito di sconfiggere il 
crimine organizzato con l’aiu t < r ' di Cursore un 
diamante brillante, in grado ai volare (ndr. nel 
linguaggio degli elaboratori il cursore è l’immagine 
che precede la lettera prescelta) sino a precedere 
l’arrivo di Automan in ogni luogo per verificare e 
garantire la sicurezza al suo padrone. Nebicher crea 
poi col computer anche una Autocar (alias 
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Lamborghini Countach) e un Autoplane. Sicché la 
caccia al crimine organizzato ha inizio. Questa, in 
sintesi, la nascita fantastica di Automan. Chuck 
Wagner, l’attore che presta la sua forma fisica ad 
Automan ha dichiarato: «Automan è un essere 
perfetto come il mondo dei cimputers da cui 
proviene e nel quale può tornare su ordine del 
tecnico-inventore. Importante però mi sembra il 
fatto che Automan contribuisce a far avvicinare la 
gente al mondo dell’elettronica e 
dell’informatica, aprendo nuove prospettive per il 
duemila...». Larry Brody, produttore esecutivo dei 
35 films, programmati da Italia 1 sino al dicembre 
1985, ha ribadito: «Automan ci ha permesso di 
fare enormi passi in avanti. Ci siamo serviti di un 
cast molto eterogeneo ricco di movie-makers 
eccezionali, tecnici ed esperti dell’informatica e 

Electric 

Questa è la prima novella cinematografica che ha per 
protagonista primario un computer, Edgar, un 
Commodore C-64 davvero straordinario, capace di 
vivere, parlare, soffrire di gelosia, aprire e chiudere le 
porte, alzare la saracinesca del garage, far bruciare il 
pollo al padrone di casa sino., ad innamorarsi della 
girl-friend della board-story. Questa pellicola della 
Virgin Limited, si basa su di un racconto di Steve 
Barron, adattato sul grande schermo da Rusty 
Lemorande e Larry De Waay con l’ausilio di 
sovrabbondanti effetti coordinati da Steve Lee, 
operatore specialistico della Virgin Basic-Computers 
che, in particolari sequenze ravvicinate con la 
macchina da presa, si è servito di un Graphics. La 



Edgar visualizza attraverso i suoi potenti canali-monitor i teneri incontri 
tra Miles e Madeline 



Automan ed il suo artefice Nebicher partono con l'AUTOCAR per 
combattere il crimine organizzato. 


grafici specializzati della Apple Computers Ine. E 
i risultati ci hanno dato ragione». 


Dreams 

parola alla fantasia: Miles è un giovane architetto di 
San Francisco da sempre innamorato dell’alta 
tecnologia offerta dall’elettronica. L’acquisto di un 
personal-home-computer, denominato Edgar, 
cambia la sua vita. Appena inseriti contatti e 
programmi, Edgar comincia ad organizzare la vita di 
Miles, i suoi appuntamenti, registra le telefonate e gli 
ricorda le cose più importanti, seguendo un ferreo 
ordine computerizzato preordinato nella sua 
memoria di macchina. L’arrivo della nuova 
avvenente vicina Madeline sconvolge però entrambi: 
Miles se ne innamora ed Edgar, dopo un primo 
timido approccio di gelosia, inizia metodicamente a 
rovinare ogni incontro tra i due. Una terribile battaglia 
finale sembra dare ragione a Miles, ma intanto 
Edgar, énfant terrible, è cresciuto a tal punto in 
potenza, da potersi immettere in tutti i circuiti 
radiofonici nazionali. La Videographic Images di 
David Yardley in Inghilterra ha svolto nel film un ruolo 
fondamentale. Sentiamo, però un attimo, cosa può 
raccontarci Bud Cort, l’attore che ha accettato che la 
sua voce venisse manipolata dal computer per poi 
apparire nel doppiaggio ufficiale del film: «Sono 
stato chiuso per dei mesi negli studi londinesi di 
Shepperton e Twickenham. È stato terribile, 
claustrofobico. La mia voce veniva mischiata, 
filtrata, sezionata e ricomposta da 
apparecchiature elettroniche sofisticatissime 
sino a che... Edgar ha finalmente avuto la “sua” 
voce cupa, distorta, ma raziocinante». 

Tim Boxell per girare le riprese nella maniera più 
professionale possibile ha reclutato un team di 24 
tecnici, collegando gli effetti video computerizzati ad 
un Ampex Digital Update System, finendo poi per 
realizzare un personal-home-computer dotato di 
ben 12 milioni di sistemi utilizzabili. Praticamente il 
più complesso e completo home-computer 
esistente al mondo. 
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LA GIOIA DI COSTRUIRE 

Matyu 






Una nuova serie di kit della «movit»; 
una delle prime ad aver portato la 
robotica a livello dei ragazzi. 

Si tratta di oggetti veramente 
interessanti, sia sotto il profilo 
educativo che dal punto di vista 
divertimento. 

Educativi per la comprensione dei 
meccanismi, per individuare metodi e 
fasi di assemblaggio, per scoprire 
che il robot si muove al suono della 
voce, oppure ripete le istruzioni 


programmate precedentemente ed 
anche per comprendere che ci sono 
dei circuti elettronici in grado di 
memorizzare un programma, oppure 
ripetere le istruzioni programmate 
precedentemente, o ancora 
trasformare l’energia sonora in 
comando elettrico. 

Per il montaggio occorrono 
mediamente da 1 a 4 ore, tutto 
dipende dalla abilità dell’hobbista 
nell'interpretare correttamente il 
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piano di montaggio, che risulta 
comunque estremamente chiaro. 
Abbiamo effettuato il montaggio di 
due robot «MEDUSA», capace di un 
solo movimento in avanti con un 
comando vocale, (battito delle mani 
ed altri suoni), e del più sofisticato 
«MEMO CRAWLER» il quale avendo 
una tastiera a disposizione (in 
dotazione al kit) può effettuare 
movimenti immediati oppure essere 
programmato con la medesima per 
seguire un percorso, accendere una 
luce (led) ed emettere un suono 
(beep). 

Programmandolo opportunamente si 
possono effettuare figure 
geometriche, oppure percorsi slalom; 
gli attrezzi necessari per il montaggio 
sono: 


— un piccolo cacciavite a croce 

— un piccolo cacciavite a taglio 

— forbici 

— martello (piccolo) 

— pinze con il becco lungo 

— pinzette a molla 


Alcuni suggerimenti. 

— Lavorate su un tavolo grande, 
distribuendo le bustine numerate 
in ordine. 

— Seguite il piano di montaggio 
cercando di non tirare fuori dalle 
bustine i relativi numeri di 
riferimento. 

— Non estraete dalla bustina più del 
necessario. 

— Prima di collegare i cavi ad 
innesto al motore ammorbititeli 


con il cacciavite, eviterete così di 
piegare i terminali del motore 
stesso. 

— Se vi trovate in difficoltà nel 
mettere le viti con i dadi nel verso 
indicato dal disegno, invertite le 
posizioni. 

— Le parti elettroniche sono già 
premontate, basta inserire i cavi 
ad innesto, facendo attenzione a 
come debbono essere allacciati. 

Sia il montaggio meccanico che 
quelle elettronico non hanno dato 
alcun problema. 

Chiudendo l’interruttore tutto ha 
funzionato regolarmente. 

PER I PIÙ ESPERTI 
Il robot «meno crawler» volendo si 
potrebbe interfacciare con un Vic-20 
o Commodore 64. 


MEMOCOM CRAWLER 

Questo Movit possiede due motori 
che gli permettono movimenti molto 
complessi. Le due ruote laterali si 
muovono indipendentemente una 
dall’altra, in quanto ogni ruota 
motrice è spinta dal proprio motore 
tramite opportune riduzioni di 
ingranaggi. 

Il circuito elettronico possiede una 
memoria di 256 passi di 4 bit. La 
durata dei movimenti può essere 
regolata tramite il trimmer situato sul 
circuito stampato. 


Regolando questo potenziometro si 
può ottenere che ogni movimento 
corrisponda ad un tempo ben 
preciso, al fine di determinare la 
strada da far percorrere. 

Prima di programmare il MEMOCOM 
CLAWLER, per essere certi che si 
cominci dalla prima cella di memoria, 
si deve toccare il TOUCH SW., e poi 
proseguire con la programmazione. 
Attenzione! Dopo ogni comando 
ricordarsi di premere il tasto ENTER. 


COME INTERFACCIARE IL MEMOCOM CRAWLER CON UN COMPUTER: 



Montare la tastiera. 


Separare gli interruttori. 
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Questa operazione è consigliabile 
solo a quanti abbiano una buona 
conoscenza della macchina stessa. 
Ovviamente tutte le operazioni di 
allacciamento devono essere fatte 
con il computer spento. 

Effettuare le connessioni tra la porta 
utente e il connettore della tastiera di 
MEMOCOM CRAWLER con i relativi 
fili, aiutandosi con lo schema 
elettrico. La porta utente su 
Commodore 64 e Vie 20 è ad 8 Bit. Di 
questi 8 Bit ne servono solo 5. 

La prima operazione da fare è 
programmare il Data Direction 
Register DDRA in uscita. 


Ciò si ottiene mediante un’istruzione 
POKE che assegni il valore 255 
aH’indirizzo del DDRA. 

Quindi dopo con una seconda 
istruzione per l’indirizzo della porta 
utente si pongono tutte le uscite a 
zero. 

Supponiamo adesso di voler far 
eseguire un movimento a destra al 
nostro robot: i bit della porta utente 
devono essere 1 e 3. 

Il bit 1 corrisponde all’input dalla 
tastiera, mentre il bit 3 al movimento 
a destra. 

Dalla tabella della pesatura ricaviamo 
che il numero da mandare in uscita 


alla porta utente, per eseguire il 
movimento a destra è: 

BIT 1 BIT 3 

1 +4 = 5 

Mandare all’indirizzo della porta 
d’uscita mediante un’istruzione 
POKE il numero 5, corrisponde 
all’eseguire con la tastiera il 
movimento a destra più la convalida 
del dato ENTER. 

A questo punto con una successiva 
POKE riportare tutti i bit nella porta 
utente a 0 (POKE porta utente, 0): si è 
quindi pronti per il successivo 
comando. 


□i 


Istruzioni per il gioco 


Questo è un vero TECHNO-MODEL. potrete diver¬ 
tirvi In molti modi con .1 MEMOCON CRAWLER. 

• Innanzitutto, prendete confidenza con l'uso della 
tastiera. Tenete la tastiera nella mano sinistra, 
usando il pollice sinistro per premere il tasto d'av¬ 
vio. 

Ogni ordine (a sinistra, a destra, in avanti ecc.) 
sarà impartito dalla vostra mano destra. Premete 
innanzitutto l'interruttore comspondente all'or¬ 
dine che volete impartire, poi l'interruttore di avvio 
per programmare. 



* Guida programmata 

Potete programmare la guida del vostro MEMOCON CRAWLER. ed inserire 
il programma servendovi della tastiera. 

Mentre programmate, capovolgete il MEMOCON CRAWLER per permet¬ 
tere al motore di funzionare liberamente. 

Per esemplo, è divertente programmare di guidale velocemente il MEMO¬ 
CON CRAWLER in un percorso come quello illustrato, dopo aver preso 
confidenza con questo gioco, potrete divertirvi organizzando corse sempre 
più difficili. 

La programmazione vi sarà più tacile se preparerete uno schema di gioco, 
come indicato nell'esempio. 

Un esempio di programmazione 

Allacciare la tastiera al MEMOCON CRAWLER. accendere l'interruttore e premere 
anche l'interruttore digitale. 




Prima di partire. 
premere LEO e SP |^5 
tre volte ciascuno 





Girare LEO 2 volte poma 
di passare il ponte 




ISSI 

ORDINI 

AVVIO 

01 

o • 

▼ 

02 

(Arresto) 

▼ 

03 

o • 

▼ 

04 

(Arresto) 

▼ 

06 

o • 

tr 

u 06 

(Arresto) 

▼ 

07 

* ■* 

▼ 

Ofi 

+ •* 

▼ 

09 

* 

▼ 

10 


V 

11 

* ■* 

▼ 

12 

* 

▼ 

13 

«■ * 

▼ 

14 

* 

▼ 

15 

* * 

▼ 

16 

* * 

▼ 

17 

(Arresto) 

▼ 

18 

(Anesto) 

▼ 


19 

lArresto) 

▼ 

20 

lAnesto) 

▼ 

21 

(Arresto) 

▼ 

22 

* 

▼ 

23 

* 

▼ 

24 

- 

▼ 

25 

■* 

▼ 

26 


▼ 

27 

«■ * 

▼ 

26 

«■ >* 

▼ 

29 

* 

▼ 

30 

«■ * 

▼ 

31 

* 

▼ 

32 

lArresto) 

▼ 

33 

o 

▼ 

34 

(Arresto) 

▼ 

35 

o 

▼ 

36 

(Anesto) 

▼ 

37 

4» • 

▼ 


36 

«■ •* • 

▼ 

39 

«■ * • 

▼ 

40 

•* • 

▼ 

41 

* 

T 

42 

«■ «» 

T 

43 

*• 

▼ 

44 

«■ + 

▼ 

45 

*• 

▼ 

46 


▼ 

47 


▼ 

46 


▼ 

49 

«■ «♦ 

T 

50 

«■ ■* 

T 


Poetatone (tot potenziometro 

eemt-verteMe 




728-e 


Mantenere il suono SP 
finché non si attra¬ 
versa il ponte 




lti:«i- 


Segnare il percorso 
di carta 


Alcuni suggerimenti per divertirvi di più: 

■ Vi sara piu facile programmare se controllerete prima quanti centimetri percorre il 
MEMOCON CRAWLER m un passo (m avanti, a destra o a sinistra). 

* Ogni MEMOCON CRAWLER possiede una sua propria tendenza nei movimenti. 
Per esempio, un MEMOCON CRAWLER tende a girare a sinistra più velocemente 
che a destra ciò' e dovuto a una qualche deviazione nella sistemazione del motore 
elettrico o degli ingranaggi. Vi aiuterà a creare dei programmi piu precisi il latto di 
conoscere bene le tendenze del vostro robot. 

• Assicurarsi dell'orientamento e della posizione del vostro MEMOCON CRAWLER 
al momento della partenza 


Messa a punto del percorso: 

Mentre il MEMOCON CRAWLER sta correndo, esso può' inserire nella sua memoria, 
simultaneamente, lo stesso schema di corsa In questo caso avrete una leggera 
differenza tra la prima corsa ed il "play-bach" poiché il robot non può' fare un breve 
intervallo tra una fase e l'altra Per risolvere ciò', sarete facilitati se avrete preso 
confidenza con ogni carattenstica del vostro MEMOCON CRAWLER 


Esempio Gioco dello slalom (Servirsi di barattoli vuoti) 
/' 


f~'\ ( o \ 

° i \ : \ ° 

. o ; : o ! 


Divertitevi con i vostri compagni di gioco 
Se abbattete un barattolo, perdete 20 punti 


Altre possibilità di divertimento: 

Attaccate un pennarello al MEMOCON CRAWLER, che traccerà cosi’ un semplice 
disegno o una lettera sulla carta come nella figura. 
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ESEMPIO DELLA PROCEDURA DI 
PROGRAMMAZIONE: 



10 POKE (indirizzo di DDRA) 255: 
REM Programma la porta A utente 
come uscita.* 

20 POKE (indirizzo porta utente A), 
dato: REM dato = numero 
corrispondente al comando da 
eseguire ricavato dalla tabella della 
pesatura. 

30 POKE (indirizzo porta utente A), 0: 
REM Metti tutti i dati a 0 per un nuovo 
comando. 

40 POKE (indirizzo porta utente A), 
dato: REM nuovo comando. 

50.E.C.C. 


RTA UTENTE MEMOCOM CRAWLER (TAST) 

1 


10 

9 

7 

1 __ 8 

2 .3 

3 .4 

4 .6 

5 .5 

2 

MASSA.1 


TABELLA DELLA PESATURA 


BIT 

1 

2 3 4 5 

6 

7 

8 

NUMERO 

1 

2 4 8 16 

32 

64 

128 


* Per Commodore 64: 59459 
Per VIC 20: 37139 
Per Commodore 64 ORA 
(output register A) 59471 
Per VIC 20 ORA (output register A) 37137 



10 p 


E Allacciare i cavi in base ai colon, e fissare il pannello di 

sostegno C al pannello di fondo C. 


Alterinone ML - Motore sul lato «.lustro 
MR - Motore sul lato destro 


^ Inserire una batteria 006P e due batterie UM3 (1.5 V) 
nei nspettiv. contenitori, e controllare il funzionamento 
come segue: 

1| Allacciare la tastiera alla presa dell'unità circuito 
stampato N°918A. 

2) Accendere l'interruttore. 

3) Accendere r interruttore datate (loo ca ndo con le dia a retro 

dei circuito stampato) 

4) Premere il tasto d'avvio contemporaneamente al tasto per 
girare a sinistra il MEMOCON CRAWLER si muoverà di 
un passo 

5) Quindi, premere il tasto d'avvio contemporaneamente al 
tasto per girare a destra, ed il MEMOCON CRAWLER si 
muoverà a destra di un passo 

6) Il LEO funziona quando si preme l'interruttore mentre è 
premuto il tasto "O". Premendo contemporaneamente 

questi due «lenurion. a ■mn-speefcer" (SP) emetter* un 

breve suono. 

7) Infine, premere l'interr u ttore di avvio contemporaneamente 
agl. altri quattro tasti in modo da ordinare la ripetizione 
della funzione. 

8) Staccare la tastiera, e accendere l'interruttore. Controllare 
se il MEMOCON CRAWLER si muove come programmato, 
per es "smistra-destra-LED-SP" Ed assicurarsi anche che 
il MEMOCON CRAWLER ripeta queste azioni. 

9) Dopo aver eseguito questi controlli, spegnere l'Interrutore 
Attenzione agli inceppi, se il robot non funziona come deve, 
controllare se il morsetto serrafili è ben fissato e se I liti 
sono allacciati come si deve. 



Direzione del robot 



Pei l» andare diritto, premere contemporaneamente i due 
tasti e premere anche quello di avvio 


Attrezzi necessari: 




Pezzi di 
ricambio 


La confezione contiene delle viti M2 x 5, dei 
dadi M2, delle londelle 0 2 m più del 
necessano Si prega di conservarti e di usarti 
in caso di necessità 
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BggaaaaaB 

d Si prega di controllarli uno per uno. 



il Pannello "testa" 
(1 PI 


Pannello A Pannello B 
|t p | (1 p.) 


J-2 


n Pannello "piede" (4 p.) 


_ Vile M3 « 30 (2 p.) 

■ V ' u Perno di guidali p l 



a Chiave inglese (1 p.) c Base motore (1 p.) 


J-4 




Pannello a disco fisso per la ° Osco di gomma <2p) 
ruota (2 PI 


D Supporlo per microfono 

(1 PI 


Vite M3 » 12 12 P i 



d> 

Distanziatore 
03.2 x 10 (2 p ) 




□ Fermo di 
gomma 

B " J (IP) 


O Ingranaggio Ingranaggio 

con pignone di plastica 

(1 P I <2 P-l 


J-6 


□ Tassello angolare 
metallico L (4 p.) 


c Perno 0 3 x 22 (2 p i 

0-.- 

a Vite M2 * 2S (2 p i 


J-7 


© 


c Rondella 
03.2 x 2 


o Ingranaggio 
con 


(4 p.) pignone 


(1 P) 


CD □ Vite M2.3 0» 


□ Distanziatore 

03.2x6 (2 p.) x 5 


(1 P-) 


J-8 


C c Ingranaggio 
pignone 

□ Distanziatore I 1 P) 

0 3.2 x 3 

(3 P-) 

© 

□ Rondella 
piatta 


02.2 (2 p.) 


d Ingranaggio 
con 

i (pic- 


pignorte I 
colo) 


0 P) 


J-9 


D Rondella 0 2.2 (16 p.) 


J-IO 


© 


o Dado M2 (18 p.) 


±jjJ © 

□ Dado M3 (6 p.) 


J-l 2 


□ Vite M2 x 5 (14 p.) 


J-l 3 


o Vite M2 x 10 (8 p.) 


J-l 4 


□ Vite M2.6 x 6 (9 p.) 




□ Unità circuito stampato (PCB) N° 
939 (1 p.) 



interruttori elettronici comandati dalla 
viva voce, oppure da un battito di 
mani. 

La sensibilità del sistema può essere 
regolata tramite il trimmer che si trova 
sul circuito stampato. 


Il MEDUSA possiede un solo motore 
che permette il movimento del Robot 
in un solo senso tramite una serie di 
ingranaggi riduttori. 

Questo motore viene comandato dai 
due transistors che fungono da 


Insenre la batteria “N" nei conteniton 
per le batterie. Assicurarsi della 
corretta polantà. 


Per provare, avvitare e controllare 
se le quattro zampe si muovono con 
il battito delle mani. Se le zampe - 
non si muovono, aggiustare il 

potenziometro semi-variabile 


Aggiustare la 
sensibilità 
girando il 

potenziometro 

semi-variabile 


Alta 

sensibilità 


Bassa sensibilità 


Interruttore acceso 


Movimento delle gambe. 

Controllale come si muovono le gambe 


Interruttore spento 


Completa¬ 


mento 


Cupola 


Diagramma del circuito. 


Medusa possiede dei circuiti elettronici che le permettono, come ad un cervello, di controllare 
i suoi movimenti seguendo i suoni 

Il «culto elettronico e costituito da transistors resistenze, microlono condensatore . esso controlla 
■I motore come indicato nel diagramma del gruppo 


Circuito di audio ampliticazione ad un campo 

I componenti pnncKMli di Questo gruppo sono TRI e TR2 Questo amplifica il segnale sonoro 
ricevuto dal microfono condensatore e mantiene il segnale di resa allo stesso livello per alcuni 
secondi per poi ritornare alle condizioni xiiziah In altre parole, esso controlla il tempo di movimento 
del motore grazie a questo circuito. 

II tempo controllato (durante il quale Medusa può muoversi) e di 3-4 secondi circa 


Diagramma del gruppo. 



© 


Circuito del motore-guida 

Esso amplifica abbastanza conente da poter muovere il motore attraverso TR3. TR4 in questo 
gruppo Quando la conente elettrica non arriva al motore, esso non elettrifica YR3. TR4 per 
risparmiare energia 


DISTRIBUTORE ESCLUSIVO PER L'ITALIA 


Viale dell’Esperanto n.71 - 00144 ROMA - Tel. 06/5918939 - TLX 611037 TEXIM I 



LIST 8/9 


27 





















































































































TOSHIBA HX 10 MSX 

di Massimo Truscelli 


Da questo numero LIST inserisce tre le rubriche di software, uno spazio 
dedicato ai computers MSX che prima o poi prenderanno il sopravvento 
sugli altri modelli della fascia di home computers dal prezzo medio-alto. 
Nonostante secondo molti sia avversato dalla concorrenza, lo standard 
MSX è sicuramente destinato, grazie alle sue caratteristiche di compatibilità 
tra i modelli di varie marche, a raggiungere una grande diffusione sul 
mercato. Per tale motivo il comitato tecnico di LIST ha pensato di inserirlo 
tra le proprie rubriche. Tra queste pagine troverete le impressioni raccolte 
nelTusare il computer scelto dalla nostra redazione: il TOSHIBA MSX HX-10. 


Il Toshiba si presenta subito bene 
grazie ad una certa eleganza del 
contenitore, sottolineata anche 
dall’accostamento dei colori della 
tastiera con quelli particolarmente 
evidenti dei tasti cursore, del tasto 
STOP e del tasto GRAPH. Il design è 
abbastanza ben riuscito e gioca molto 
sulle alternanze dei toni di grigio e delle 
zone piene contrapposte a quelle a 
griglia. 

Una caratteristica che ci ha fatto subito 
piacere è che finalmente l’alimentatore 
è contenuto all’interno del computer, 


quindi nessuna scatoletta in giro tra i 
piedi o peggio ancora grovigli di fili 
spesso troppo lunghi o troppo corti. Il 
Toshiba è dotato solo del suo cordone 
della lunghezza di circa 1 metro da 
inserire direttamente nella presa della 
corrente. 

Sopra la tastiera trovano posto: a 
destra lo sportellino per l’inserimento 
delle CARTRIDGEs ed a sinistra la 
griglia per l’areazione dell’alimentatore. 
All’interno dello sportellino che 
protegge lo SLOT è posizionato un 
microinterruttore che svolge la 


funzione di protezione contro 
inserimenti indesiderati della cartuccia 
a computer acceso. Questo può inoltre 
essere usato per resettare il sistema in 
caso di blocchi di varia natura. 

Sul fianco sinistro si trova l’interruttore 
di accensione, sul lato destro le prese 
CANNON per due JOYSTICKs ed il 
connettore a 14 contatti, standard 
CENTRONICS, per il collegamento alla 
stampante. 

Sul lato posteriore troviamo altri 
connettori: una presa per il registratore 
a cassette (da usare come memoria di 
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massa), una presa da collegare 
all’antenna del proprio televisore, una 
presa per prelevare solo il segnale 
audio ed inviarlo ad un impianto stereo 
o ad un registratore, una presa per 
monitor utilizzante un segnale 
video-composito, e, chiuso da uno 
sportellino serrato da due viti, lo SLOT 
di espansione. 

I cavi forniti a corredo sono solo due e 
precisamente quello per il registratore, 
e quello tra il modulatore RF del 
computer e la presa di antenna del 
televisore. Ciò di cui si sente la 


1 - 

1 PIN N. 

=F<5WLF 

IN/OUT 

1 

1 1 

STPOBE 

IN 

1 P 

n« rp i 

IN 

1 

1 3 

DATO a 

IN 

1 

1 d 

n«Tn -a 

IN 

1 

i •s 

1 DATO d 

IN 

1 

1 c 

1 

| IldTO 

IN 

1 7 

i rp-rn r I in 

I 

1 

1 R 

1 ORTp 7 

IN 

• F» 

' 

1 nf,Tn R 

IN 

1 

1 ,PI 

! 

1 NT 

1 


1 1 

OUT 

i 15 

i -r. 

i 


i 

• 13 

1 

1 NT 

1 


1 

1 " 

i oijri 



mnnnn n Fi. 


MUUUUULiJ 


CONNETTORE INTERFACCIA CENTRONICS HSX 


mancanza è una presa per monitor del 
tipo RGB che sicuramente fornirebbe 
risultati migliori rispetto al 
video-composito. 

Altro appunto che si può rivolgere a 
questo, come ad altri computers dello 
standard MSX, è che la porta parallela 
CENTRONICS per la stampante, non 
offre tutti i collegamenti previsti, in 
particolare le linee di ritorno per ogni 
segnale sono accomunate in un’unica 
linea di ritorno che può creare qualche 
problema con alcuni modelli di 
stampante. 

La tastiera segue lo standard 
QWERTY e comprende 48 tasti di 







| A...’**,- 


i 



colore bianco con le scritte in nero e i 
tasti ESCape, TAB, CTRL, SHIFT, 
CAPS, CODE, BS e RETURN, di colore 
grigio scuro con le scritte in bianco. 

In alto sono posizionati 5 tasti funzione 
che permettono di poter usufruire di 10 
istruzioni ad essi già preassegnate; è 
però possibile variarne l’assegnazione 
tramite l’istruzione KEY. 

Sempre in alto, a destra trova posto un 
tasto rosso contrassegnato con la 
parola STOP. La sua funzione è quella 
di fermare il programma se premuto 
insieme al tasto CTRL o sospendere 
momentaneamente l’esecuzione del 
programma se premuto da solo. 
Continuando ancora la panoramica 
sulla tastiera del Toshiba, si nota un 
tasto verde, in basso a sinistra vicino 


alla barra-spazio , contrassegnato con 
la scritta GRAPH; esso permette di 
usare i caratteri grafici predefiniti messi 
a disposizione dal generatore interno. 
Per ultimi rimangono i 4 tasti per l’edit 
ed i tasti cursore. 

Per l’edit i tasti a disposizione sono: 
INSert per aggiungere spazi all’interno 
di una linea, DELete per cancellare 
singoli spazi, HOME per posizionare il 
cursore in alto a sinistra o per 
cancellare, se premuto SHIFT, tutto lo 
schermo. L’ultimo tasto ‘SELECT’ non 
ci è molto chiaro a cosa serva; sul 
manuale in dotazione, le spiegazioni a 
riguardo sono vaghe e poco 
soddisfacenti, riteniamo però che 
possa essere vantaggiosamente usato 
in unione a specifici programmi 
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applicativi. 

I quattro tasti cursore si riconoscono 
immediatamente grazie alla 
colorazione di un azzurro intenso ed 
alla collocazione molto comoda a 
forma di croce. La tastiera è 
completata da due LED (diodi ad 
emissione luce), uno rosso e l’altro 
verde, indicanti il primo, che il 
computer è acceso, il secondo che è 
stato selezionato il modo testo 
Maiuscolo con il tasto CAPS. 

Nella confezione del Toshiba sono 
contenuti alcuni adesivi da 
posizionaresulla tastiera per avere 
immediatamente sotto controllo le 
combinazioni di caratteri che si 
possono ottenere con i tasti CTRL, 
SHIFT, GRAPH e CODE. 

Ne sconsigliamo vivamente l’uso 
perchè sicuramente genererebbero 
confusione. 

Sul Toshiba ogni tasto riesce a 
riprodurre un massimo di 6 caratteri: 
pensate a quale «pastrocchio» 
andreste incontro se vi venisse in 


bella vista 5 grossi chip che sono il 
cuore del sistema MSX. Si tratta del 
processore Z80, unità centrale del 
sistema; del processore video TMS 
9929; del generatore sonoro AY 
3-8910; i rimanenti due integrati LSI 
sono uno un integrato specifico 
costruito dalla Toshiba che serve per 
svolgere la funzione di interfaccia con 
la CPU delle varie periferiche di Input e 
Output; l’altro, contrassegnato con la 
sigla TMM 23256, contiene il software 
di base del computer e cioè il BASIC 
MSX. Al generatore sonoro AY3-8910 
compete la funzione di interfaccia per 
gli eventuali JOYSTICKs. Completano 
la MOTHER BOARD due banchi di 
memoria composti dagli integrati 
siglati TMM-416P e M98264A, 
suddivisi in 16 K per la memoria video 
e 64 k per la memoria centrale. I banchi 
di memoria sono sovrastati da due 
circuiti integrati del tipo HD74LS157P 
che svolgono la funzione di 
MULTIPLEXER per la memoria 
centrale. 



Uniia a dischi 


Cartucce di interfaccia RS 232C 


Stampante a matrice di punti 


mente di attaccare gli adesivi con tutte 
le combinazioni!!.. 

HARDWARE 

Se si rivolta il computer si può notare 
una targhetta che indica quali sono le 
viti da rimuovere per poter accedere 
all’interno. 

Rimosse le viti ci si accorge che il 
contenitore è formato da due scocche 
combacianti che rappresentano in 
realtà la piastra del circuito generale e 
la piastra della tastiera. 

Quest’ultima è collegata al circuito 
mediante due piccoli connettori 
facilmente sfilabili che facilitano non 
poco il lavoro in caso di riparazione o 
di manutenzione. 

L’interno ci è sembrato abbastanza 
pulito e forse un pochino vuoto. 
Qualche appunto è da fare alla sezione 
dell’alimentatore che scalda troppo ed 
è attorniata da una certa quantità di fili 
un po’ troppo «sparpagliati». 

La piastra principale mostra subito in 


Altro particolare degno di nota è il 
piccolo RELAY a ridosso dello SLOT 
per le cartucce a cui compete la 
funzione di interruttore per il 
registratore a nastro collegato al 
computer. Inutile ricordare che tale 
funzione è possibile solo con quei 
registratori muniti dell’apposita presa 
contrassegnata con la sigla REMOTE 
CONTROL. 

Osservando ancora la macchina si può 
notare, sempre affiancato allo SLOT 
delle cartucce, il modulatore televisivo 
standard PAL. 

Per ciò che riguarda la 
documentazione sui due manuali 
allegati alla macchina, non si trova 
alcuna traccia sull’integrato TCX 1007 
che gestisce le operazioni di I/O. 
Trattandosi di un CHIP di fabricazione 
Toshiba, la casa madre avrebbe fatto 
bene a documentarne l’uso invece di 
limitarsi a dire che è necessario 
ricorrere a istruzioni specifiche in 
linguaggio macchina. 

Altra stranezza del manuale d’uso è 


che più volte si fa riferimento ad un 
altoparlante interno che poi, come si 
vede dalle fotografie, non esiste. 

L’USO 

Una volta acceso il computer, e 
collegatolo logicamente alla TV o al 
monitor, appare la scritta del 
COPYRIGHT MICROSOFT in bianco 
su fondo azzurro, e successivamente 
lo schermo della ditta produttrice con 
l’indicazione ai cinque tasti funzione. 
Ciò che maggiormente ci ha colpito è 
stata la grande qualità sonora del 
computer; chi digiterà i programmi 
pubblicati su questo numero avrà 
modo di sincerarsene personalmente. 
Altra ottima caratteristica, comune a 
tutti gli MSX, è la grande quantità e 
completezza di istruzioni grafiche che 
ne permettono l’uso, in questo campo, 
ad un livello qualitativo maggiore 
rispetto ad altri computers. 

Molte sono anche le istruzioni destinate 
al sistema che ne permettono un uso 
più appropriato ed agevole in fase di 
stesura di programmi. 

Particolarmente utili alcune istruzioni 
come AUTO, RENUM, DELETE che, 
nell’ordine, permettono di numerare 
automaticamente le linee, rinumerarle 
secondo un passo stabilito dall’utente 
e cancellare u n blocco di linee senza 
richiamarle una per una. 

Ancora istruzioni molto valide sono 
TRON, TROFF, ON ERROR, ON 
SPRITE, STICK, ON STRIG. 

Le prime due sono particolarmente utili 
per seguire lo svolgimento dei 
programmi e visualizzano, man mano 
che il programma viene eseguito, il 
numero di linea delle istruzioni 
eseguite. TROFF annulla tale possibilità 
mentre TRON la abilita. ON ERROR 
permette di poter prevedere le 
possibilità di errore ed evitare il blocco 
del programma rimanendo ad istruzioni 
o routine di correzione. 

Per chi usa spesso gli SPRITE, ritornerà 
di grande comodità l'istruzione 
specifica che permette di intercettare 
eventuali collisioni. 

Gli altri due comandi menzionati 
facilitano l’uso del joystick evitando le 
noisose istruzioni con l’uso di PEEK e 
POKE tipiche di molti computers 
largamente diffusi. 

Se un appunto si può muovere, ma è 
molto difficile in quanto la qualità del 
computer ripaga il prezzo, che si aggira 
sulle 600.000 lire, è solo in merito alla 
scarsa qualità dei manuali in dotazione 
che risentono come sempre della 
traduzione, spesso poco chiara, in 
Italiano. 
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LA CASA DELLO SPACE 


di Giuseppe Breveglieri 




Buona parte della storia che riguarda 
la conquista dello spazio da parte 
dell'uomo è stata scritta in uno 
spicchio di terra, a pochi passi 
dall’Oceano Atlantico, che si chiama 
Cape Canaveral. 

Cape Canaveral è situato in una zona 
di circa cinquantasette ettari sulla 
costa orientale della Florida, negli 
Stati Uniti, a mezza strada tra 
Jacksonville e Miami. 

È una strana commistione tra 
tecnologia e natura selvaggia. Cape 
Canaveral infatti, ospita il Kennedy 
Space Center, la «casa» degli space 
shuttles ma anche il National Wildlife 


Reguge e il Canaveral National 
Seashore, come dire due luoghi dove 
la fauna e la flora, nella loro 
espressione più naturale, vengono 
rispettate e protette. Cui vivono circa 
duecento specie di uccelli — e tra 
questi alcuni esemplari sempre più 
rari di aquile calve, di falchi pellegrini, 
di passeri marini — tartarughe verdi, 
tartarughe marine, coccodrilli, 
armadilli e serpenti. Cui migliaia di 
uccelli che migrano dal Nord si 
fermano durante l'inverno. 

A pochi metri dalle rampe dove gli 
shuttles partono verso il cosmo, non 
è difficile vedere, vicino agli stagni di 


acqua salmastra, coccodrilli 
infangati, di un colore grigiastro, 
immobili sotto il sole della Florida, 
come i pensionati americani che, in 
gran numero, hanno eletto il loro 
domicilio in questo stato. 

La «casa» degli shuttles, il Kennedy 
Space Center, si estende da Nord a 
Sud per una lunghezza di 55 
chilometri e 16 di profondità, 
sull’isola di Merrit. 

L’isola è delimitata dal Banara river, 
dall’lndian river e dalla Mosquito 
Lagoon. Piccole tribù di indiani 
preistorici hanno abitato questa zona 
circa 3000 anni fa. Erano stati attratti 
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su quest’isola dall’abbondanza di 
cibo, il pesce, che si trovava nelle 
anse, nelle baie e nei fiumiciattoli di 
Cape Canaveral. 

La flotta spagnola, in navigazione 
verso il Nuovo Mondo, attraversò la 
corrente del golfo al largo di Cape 
Canaveral. Questo nome era già 
tracciato nelle mappe marine 
spagnole sin dal 1550, pochi decenni 
dopo la scoperta deH’America 
dunque, e forse furono proprio gli 
spagnoli a dare il nome Canaveral al 
Capo perché lungo le coste, che le 
loro navi bordeggiavano spesso, 
crescevano siepi di canne sottili che 
si piegavano al vento sibilando. 

I «treasure hunters», i cacciatori di 
tesori, cercano ancora, lungo le coste 
del Capo le tracce dei galeoni che 
affondarono in questi mari 
depositando sul fondo dell’Oceano il 
contenuto delle loro stive. 

II luogo più imponente del Centro 
Spaziale è il Vehicle Assembly 
Building, dove le navette spaziali 
vengono assemblate. È questo una 
sorta di tempio del futuro, un 
parallelepipedo alto 160 metri, lungo 
218 e largo 158. Il volume di questo 
edificio che è tra i più grandi del 
mondo, è di oltre tre milioni e mezzo 
di metri cubi. Le strutture di questo 
monumento di cemento sono state 


costruite per resistere a venti che 
soffiano a più di 200 chilometri l’ora 
perché in Florida, a volte, il vento non 
scherza. 

Dal Vehicle Assembly Building gli 
shuttles pronti per il lancio vengono 
trasportati alla piattaforma di 
partenza con la piattaforma mobile, 
un mostro di acciaio alto più di sette 
metri, largo 41 e lungo 49, si muove 
molto lentamente verso il Launch 
Complex 39, alto quasi 48 metri, 
dove lo shuttle spicca il volo verso il 
cosmo. 

I prossimi shuttle si muoveranno 
all’interno della base spaziale con 
una nuova piattaforma, molto 
sofisticata, costruita da una ditta 
piemontese che nella gara d’appalto 
è riuscita ad aggiudicarsi la 
commessa della NASA per la sua 
serietà organizzativa e produttiva, 
battendo la concorrenza di tedeschi, 
francesi e delle stesse industrie 
aeronautiche americane. 

II carrello italiano dello shuttle è più 
piccolo di quello americano, 32 metri 
di lunghezza e 6 di larghezza con 76 
ruote, ma è destinato al trasporto 
della navetta in una base californiana 
da dove gli shuttle partiranno in 
alternativa con la base della Florida. 

* * * 

Cape Canaveral cominciò a cambiare 


fisionomia nel 1947 quando il 
Dipartimento della Difesa americano 
decise che quel territorio era il più 
adatto per accogliere una base 
missilistica. I vantaggi che Cape 
Canaveral offriva erano molti: l’area 
era poco popolata, era vicina 
all’oceano, infine c’erano un certo 
numero di isole, nei Caraibi a circa 
5000 miglia, che avrebbero potuto 
ospitare i radar e tutta la 
strumentazione elettronica 
necessaria per controllare il volo dei 
missili e dei satelliti partiti dalla base 
della Florida. 

E così l’11 Maggio del 1949 il 
Presidente americano Truman firmò 
la legge che sanciva la costruzione di 
un poligono missilistico chiamato 
Long Range Proving Ground. Poco 
meno di un anno dopo il Dipartimento 
della Difesa affidava la base aH’USAF, 
l’aeronautica militare statunitense. 

Il primo missile «sparato»» nello 
spazio da Cape Canaveral, il 24 
Luglio del 1950, fu un razzo a due 
stadi costruito con una V2 confiscata 
ai tedeschi e un WAC Corporal 
dell’Esercito. La semplicità delle 
operazioni per quel primo lancio 
fanno sorridere gli specialisti di oggi, 
abituati alle complesse operazioni 
per spedire nel cosmo uno shuttle. 
Cape Canaveral viene chiamato 
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anche «spaceport» il porto spaziale. 
Qui lavorano moltissime persone che 
dalla NASA. l’Ente Spaziale 
Americano, non dipendono. La 
NASA, infatti, gestisce il Kennedy 
Space Center con una particolare 
filosofia: le migliori industrie private 
del settore e le migliori università 
ameridane possono diventare 
«contractors» appaltatrici cioè, di 
molti settori, soprattutto di quelli 
logistici, del Centro Spaziale della 
Florida. La TWA, la Pan America, la 
RCA, la Martin Manetta, la ITT, la 
Bendix Corp. la Federai Eletric Corp., 
sono solo alcune delle grosse 
aziende che lavorano a Cape 
Canaveral per la NASA. Due milioni di 
persone visitano ogni anno il 
Kennedy Space Center. Per entrare 
non occorrono particolari formalità; 
basta un documento personale 
valido poi un accompagnatore, che 
conosce naturalmente ogni piega del 
Centro, vi guiderà tra le rampe di 
lancio dei vari settori. Esistono, è 


ovvio, alcune zone che non sono 
aperte ai visitatori come il centro di 
calcolo dove si trovano i grossi 
computers e le sale di controllo che 
servono per le missioni. Ma i turisti 
possono scorazzare in lungo e in 
largo, a bordo dei torpedoni della 
NASA, e possono anche fotografare 

le vecchie rampe — sembano reperti 
di un lontano passato — che hanno 
lanciato le missioni Mercury, Gemini, 
Skylab, Apollo, e le nuove dalle quali 
partono gli shuttles, compresa la 
rampa più sofisticata, quella dalla 
quale due shuttles potranno partire a 
15 giorni di distanza l’uno dall’altro, 
una cosa adesso impossibile perché 
occorrono molti più giorni tra due 
missioni. 

Da Cape Canaveral, dunque, parte 
adesso un rivoluzionario mezzo di 
trasporto che si muove come un 
normale razzo, alla partenza, come 
una astronave quando è nello spazio 
e per un periodo di tempo che va dai 


7 ai 30 giorni, come un aereo di linea 
quando rientra a terra. A questo va 
aggiunto il fatto che lo shuttle non è 
un mezzo spaziale «a perdere» come 
tutti gli altri veicoli che lo hanno 
preceduto. Lo shuttle, infatti, può 
essere riutilizzato, dopo le necessarie 
revisioni, per decine di missioni con 
grande risparmio di mezzi, di 
materiali, e di sistemi di bordo che 
sono molto sofisticati e, quindi, molto 
costosi. 

Il primo shuttle della storia è partito 
da Cape Canaveral il 12 Aprile del 
1981. Non molto tempo è passato da 
quel Luglio di 31 anni prima quando 
un piccolo razzo assemblato con 
mezzi rudimentali era partito per il 
cosmo. Ma da quel giorno l’uomo ha 

fatto passi giganteschi nella 
esplorazione spaziale; passi che lo 
proiettano in un futuro 
inimmaginabile solo alcuni decenni 
orsono, e che molti avrebbero 
scambiato per fantascienza. 
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a cura di Massimo Momo e Massimo Truscelli 


ARCHITETTURA 

dello 


I 1 


La rubrica «Z80 e Linguaggio 
Macchina» è ormai ben avviata e 
molte sono le richieste riguardanti il 
codice macchina dei sistemi che 
usano il processore Z80. Da non 
dimenticare che anche lo standard 
MSX usa tale processore. Per questi 
e per altri motivi si è pensato bene di 

pubblicare, quasi come un 
documento destinato a perdurare nel 
tempo ed a divenire quasi un piccolo 
tesoro, la struttura del processore 
Z80 ed i relativi codici mnemonici. 

Sicuramente molti lettori non 
capiranno granché: questo è il 
naturale scotto di chi non 
conoscendo ancora bene il BASIC si 


intestardisce nel voler capire il 
Linguaggio Macchina. Diciamo ciò 
perché sono numerose le lettere che 
ci spronano ad affrontare il L.M., così 
come sono tante le segnalazioni 
raccolte attraverso il questionario 

pubblicato sul numero 4 riguardo 
l’argomento e molte sono le lacune 
riscontrate nelle stesse lettere e 
questionari riguardo al BASIC, 
(magari firmate dallo stesso lettore). 
Guardandoci bene dall’innescare una 

polemica con i nostri lettori, 
ribadiamo il concetto che il L.M. deve 
essere preso un pochino con le 
pinze: in perfetto accordo con chi 
dice che il BASIC è facile, non ci 


sentiamo di dire altrettanto nei 
confronti del Linguaggio Macchina. 

In questa puntata di HANDBOOK 
iniziamo la pubblicazione delle 
istruzioni di caricamento ad 8 bit, 
comprendenti i codici mnemonici, i 
codici oggetto (quando possibile) e i 
relativi FLAGS. 

Per i codici oggetto spieghiamo che 
essi sono in dipendenza di ciò che si 
vuole ottenere in funzione del 
caricamento e che, quindi, per tale 
motivo sono ad arbitrio dei lettori. 
Oltre alle istruzioni di caricamento 
abbiamo pensato bene di aggiungere 
anche le istruzioni aritmetiche e 
logiche sempre ad 8 bit. Non ci 
rimane che augurarvi buon lavoro! 


ISTRUZIONI ARITMETICHE E LOGICHE AD 8 BIT 


MNEMONICO 


CODICI OGGETTO 


ADD A,A 
ADD A.B 
ADD A.C 
ADD A.D 
ADD A,E 
ADD A.H 
ADD A.L 
ADD A,n 
ADD A. <HL) 
ADD A,<ix*d> 
ADD A,<i»*d> 
ADC A,A 
ADC A.B 
ADC A.C 
ADC A.D 


135 
128 

129 

130 

131 

132 

133 

198 n 

134 

221 134 d 

253 134. d 

143 

136 
13? 

138 


FLAGS 


TUTTI 


ADC A.E 

139 



SBC A.C 

153 




ADC A.H 

140 



SBC A.D 

154 



« 

ADC A.L 

141 



SBC A.E 

155 



- 

ADC A.n 

206 

n 


SBC A.H 

156 



- 

ADC A,<HL> 

142 



SBC A.L 

157 



•• 

ADC A,<ix*d) 

221 

142 

d 

SBC A,n 

222 

n 


» 

ADC A,(i*+d> 

253 

142 

d 

SBC R.'<HL> 

158 



•• 

SUB A 

151 



SBC A. < ix*d) 

221 

158 

d 

- 

SUB B 

144 



SBC A.<i*+d> 

253 

158 

d 

" 

SUB C 

145 



AND A 

167 



- 

SUB D 

146 



AND B 

160 



» 

SUB E 

14? 



AND C 

161 



« 

SUB H 

148 



AND D 

162 



- 

SUB L 

149 



AND E 

163 



- 

SUB n 

214 

n 


AND H 

164 



« 

SUB <HL> 

150 



AND L 

165 



- 

SUB < ix+d) 

221 

150 

d 

AND n 

230 

n 


« 

SUB <i**d> 

253 

150 

d 

AND <HL) 

166 



- 

SBC A,A 

159 



AND <ix«-d> 

221 

166 

d 

» 

SBC A.B 

152 



AND <l»+d> 

253 

166 

d 



MNEMONICO 

CODICI OGGETTO 

FLAGS 

OR A 

183 

TUTTI 

OR B 

176 

- 


OR C 

177 

- 

OR D 

178 

• 

OR E 

179 

. 


OR H 

180 

M 

OR L 

181 

■ 

OR n 

246 n 

“ 
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OR <HL> 

132 



CP b 

184 



INC H 

36 



“ 

- 

OR <ix+d> 

221 

182 

d 

CP c 

185 


w 

INC L . 

44 





OR (i»*d) 

253 

182 

d 

CP D 

186 


N 

INC -HL) 

52 



" 

M 

SOR A 

175 


M 

CP E 

187 


M 

INC <l**d> 

221 

52 

d 

" 

M 

SOR B 

168 


M 

CP H 

188 


H 

INC <l**d> 

253 

52 

d 

•• 

” 

SOR C 

169 


R 

CP L 

189 


« 

DEC A 

61 



“ 

M 

SOR D 

170 


M 

CP t> 

254 

n 

•• 

DEC B 

5 



" 

* 

SOR E 

171 


N 

CP 'HL * 

190 


M 

DEC C 

13 



" 

1» 

SOR H 

172 


M 

CP <ix+d> 

221 

190 d 

•• 

DEC D 

21 



* 

II 

SOR L 

173 


n 

CP (ln+d) 

253 

190 d 

m 

DEC E 

29 



" 

H 

SOR o 

238 

n 

H 

INC A 

60 


S.Z-H.P/V.N 

DEC H 

37 



- 

N 

SOR <HL> 

174 


M 

INC B 

4 



DEC L 

45 



M 


XOR <»x+d> 

221 

174 

d 

INC C 

12 



DEC <HL> 

53 



" 

N 

SOR ClMtd) 

253 

174 

d 

INC D 

20 



DEC - i~+d> 

221 

53 

d 

" 


CP A 

191 


*• 

INC E 

28 



DEC <i-*+d> 

253 

53 

d 

“ 

" 


CODICI MNEMONICI E STRUTTURA DELLO ZS0 

LD B- A 

71 

LD E, A 

95 

Prima Parte 



LD B. B 

64 

LD E- B 

88 




LD B. C 

65 

LD E- C 

89 

ISTRUZIONI DI 

CARICAMENTO AD 3 BIT 

LD B. D 

66 

LD E- D 

90 




LD B. E 

67 

LD E, E 

91 

MNEMONICO 

CODICI 

OGGETTO FLAGS 

LD B. H 

68 

LD E. H 

92 

— 

— 

— 

LD B. L 

69 

LD E. L 

93 

LD A, n 

62 

n 

LD C, A 

79 

LD H, A 

103 

LD B, n 

6 

n 

LD C. B 

72 

LD H, B 

96 

LD C. n 

14 

n 

LD CrC 

73 

LD H. C 

97 

LD D. y> 

22 

n 

LD C. D 

74 

LD H, D 

98 

LD E/ r. 

30 

n 

LD C, E 

75 

LD Hi E 

99 

LD H, o 

38 

n 

LD C, H 

76 

LD Di H 

100 

LD L, o 

46 

n 

LD Ci L 

77 

LD H, L 

101 

LD A, A 

127 


LD D. A 

87. 

LD L. A 

111 

LD A. B 

120 


LD D, B 

80 

LD L. B 

104 

LD A. C 

121 


LD D< C 

81 

LD L» C 

105 

LD A, D 

122 


LD D. D 

82 

LD L. D 

106 

LD A, E 

123 


LD D. E 

83 

LD Li E 

107 

LD A, H 

124 


LD D. H 

84 

LD Li H 

108 

LD A/ L 

125 


LD D. L 

85 

LD Li L 

109 


MNEMONICO 

CODICI OOOETTO FLROS 

LD-HL).E 

113 


LD<l*»di. E 

221 

113 

d 


- - - 

LD-HL).H 

116 


LDClx+d). H 

221 

116 

d 

LD<ntO.R- 

50 nnl nn2 

LD<H.),L 

117 


LD<lx*d>, L 

221 

117 

d 

LO fl. <nn) 

56 nnl nn 2 

LD-HL). n 

54 

n 

LD fl.<l»*d) 

233 

126 

d 

LD OC. R 

2 

LD R. 1 

237 

87 

LD B.<m»d> 

233 

78 

d 

LD fl. <BO 

ie 

LD R. R 

237 

93 

LD C.-lv+d) 

253 

78 

d 

LD'DEi.fl 

18 

LD I. R 

237 

71 

LD D.<i»*d> 

233 

86 

d 

LD R. < D£> 

26 

LD R. fl 

237 

79 

LD E.<l»*d) 

233 

94 

d 

LD R. -HL) 

126 

LD A.<i**d) 

221 

126 d 

LD H.<i»»d) 

233 

102 

d 

LD B. -HL) 

70 

LD B. <lx*d) 

221 

78 d 

LD L.<l»*d> 

233 

110 

d 

LD C, -HL) 

78 

LD C.<lx»d> 

221 

78 d 

LD<lx*d>. R 

233 

119 

d 

LD D. -HL) 

86 

LD D.(lx*d) 

221 

86 d 

LD<l»»d>. 8 

233 

112 

d 

LD E. -HL) 

94 

LD E,<lK*d> 

221 

94 d 

LD<J»*di. C 

233 

113 

d 

LD H. -HL) 

182 

LD H.<lx*d) 

221 

182 d 

LDU»*d>. D 

233 

114 

d 

LD L. -HL) 

118 

LO L.<ix»d> 

221 

118 d 

LD- i**d> • E 

233 

115 

d 

LD-HL).R 

119 

LD<lx*d> . fl 

221 

119 d 

LD-l»»d>. H 

233 

116 

d 

LD-HL).B 

112 

LD<ix*d>. B 

221 

112 d 

ID-W*d>. L 

253 

117 

d 

LD-HL).C 

113 

LD- lx*d). C 

221 

113 d 

LD-.ix»d>. n 

221 

54 

d n 

LD-HL).D 

114 

LD<lx*d>. D 

221 

114 d 

LD-i»*di. » 

253 

54 

d n 
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PARTE SETTIMA 


OGGI PARLIAMO DI 

ilTEOREMAdi PITAGORA 


A partire da questo numero la rubrica «Scuola e Computer» redatta da 
Paolo Ciancarini, verrà curata dagli insegnanti Fiorella Palomba ed 
Eugenio Cavallari e tratterà specifici argomenti di carattere didattico. 

Quanto trattato in precedenza da Paolo Ciancarini viene ripreso dallo 
stesso, sempre in queste pagine, nella nuova rubrica «Il Software Utile». 


Con questo numero di LIST si apre una nuova rubrica 
curata da insegnanti di scuola elmentare e media inferiore, 
che negli nultimi anni hanno condotto sperimentazioni 
informatiche nelle loro sedi di servizio. 

Con questa rubrica ci proponiamo di realizzare un 
obiettivo ambizioso, creare cioè una rete di scambio di 
informazioni e materiali riguardanti sperimentazioni 
didattiche e software prodotto nelle scuole o per la scuola. 
Sappiamo che sono moltissime le scuole di ogni ordine, 
disperse su tutto il territorio nazionale, in cui un gran 
numero di insegnanti e operatori culturali lavorano con 
competenza e impegno, talvolta in una frustante 
situazione di solitudine e spesso fra il disinteresse di molti 
colleghi (anche dei dirigenti scolastici) convinti dell’inutilità 
di portare nella scuola le nuove tecnologie. 

Crediamo (e speriamo) che una rivista come questa possa 
servire da punto di riferimento e luogo di confronto e di 
riflessione per molte di queste esperienze, permettendo a 
laboratori di informatica, gruppi di lavoro, singoli docenti e 
ragazzi di collegarsi fra loro. 

Cercheremo, nei limiti delle possibilità, di fare un 
censiemento delle attività in corso di sperimentazione o 
che si sono svolte recentemente, dei criteri impiegati, 
degli obiettivi raggiunti, dei materiali prodotti, delle 
macchine utilizzate. 


Di una parte di queste esperienze siamo già a 
conoscenza, ad altre abbiamo partecipato. È chiaro però 
che una rubrica di questo tipo ha ragione d’essere solo 
con un contributo di materiali, esperienze e programmi, da 
parte dei lettori. 

Per quanto ci riguarda, confortati da alcuni anni di 
esperienza e di risultati positivi, operiamo nella scuola 
dell’obbligo con il linguaggio LOGO, sia per 
l’alfabetizzazione informatica che nell’ambito delle singole 
discipline utilizzando programmi il più possibili interattivi, 
in genere molto semplici e redatti nel medesimo 
linguaggio. 

In pratica vorremmo ricevere dai lettori e ospitare in 
questa rubrica: 

— Resoconti e materiali relativi alle sperimentazioni in 
atto. 

— Programmi prodotti da insegnanti, o comunque 
finalizzati alla didattica. 

— Programmi prodotti per ragazzi, a scuola o fuori, 
anche al fine di risolvere eventuali problemi incontrati 
nel corso della progettazione. 

— Notizie riguardanti iniziative, convegni, corsi, etc. 

— Contributi, opinioni, interventi di esperti, informatici e 
pedagogisti. 


PROGETTO IDA 

L’assessorato alla pubblica istruzione di base del 
comune di Bologna ha avviato un progetto di 
formazione e di sperimentazione per applicare 
l’informatica alla didattica e porsi nel sistema formativo 
integrato con competenza e professionalità. 
Formazione, aggiornamento permanente, 
documentazione, ricerca e produzione di software 
sono obiettivi del Progetto IDA 
(informatica-didattica-apprendimento) che sta 
coinvolgendo un primo gruppo di 15 insegnanti 
comunali di scuola elementare distaccate allo scopo 
per oltre un anno. Il Progetto IDA si sviluppa all'Interno 
del Centro di didamatica aperto presso le scuole 
elementare Berti per proiettarsi, in fase di 
sperimantazione, nelle sue aule didattiche decentrate 
di prossima reallizzazione nei nuovi quartieri di 
Bologna. Un comitato tecnico programma e coordina i 
lavori e le docenze, garantite dal Dipartimento di 


scienze dell’educazione dell’università di Bologna, dal 
Centro interuniversitario di calcolo (CINECA) di 
Casalecchio di Reno e dall’Istituto di informatica di 
Ancona. Ulteriori sviluppi di questo progetto di 
formazione sono previsti a medio termine (tre anni) per 
realizzare compiutamente una struttura centrale e nove 
strutture decentrate che, integrandosi fra di loro, 
possano dare prodotti finiti e collaudati nel campo della 
didamatica. 

COMPUTER SCUOLA 

L’Assessorato alla Pubblica Istruzione del Comune di 
Udine ha lanciato, in collaborazione con il 
Provveditorato agli Studi ed il supporto finanziario della 
banca Popolare Udinese, un significativo programma 
intitolato «COMPUTER SCUOLA - cultura informatica 
nella scuola d’obbligo» che ha permesso sin dal 
presente anno scolastico, l’introduzione dei computer 
sui banchi di scuola delle prime classi di tutte le scuole 
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medie pubbliche e della quasi totalità delle private, la accanto ai 32 insegnanti, che hanno già frequentato un 
sperimentazione di informatica nelle scuole impegnativo corso di formazione di 75 ore, circa 750 

dell’obbligo avrà durata triennale e coinvolgerà, allievi della città. 


Abbiamo ricevuto dal professor 
Stefano De laoobis di Roma, insegnan¬ 
te di matematica, il programma sui 
TEOREMA DI PITAGORA che gira su 
TI-99/4A in Extended Basic, di cui 
pubblichiamo il listato. 

Il programma occupa 7962 butes e u¬ 


tilizza il joystick per muovere La 
freccia indicatore che appare in bas¬ 
so, a destra del video per segnalare 
ciò' di cui si parla. 

Una avvertenza: in Luogo del simbolo 
£ mettere il simbolo # . 

Fiorella Palomba e Eugenio Cavallari 


100 COLL CLEOR 
110 COLL SCREEN(8) 

1£0 FOR SET—£ TO 14 
130 COLL COLOR(SET,£,1) 

140 NEXT SET 
150 COLL CLEOR 
160 O$="FFFFFFFF00000000" 

170 B$="80C0E0F000000000" 

180 C*="FF7F3F1F00000000" 

130 COLL CHOR(96, 0$) : : COLL CHOR(1£0, B*) : : COLL CH0R<1£3, C$) 

200 FOR R=7 TO 17 
210 FOR C=3 TO £3 STEP 10 
2£0 COLL HCH0R(R,C,36,8) 

£30 NEXT C 
240 NEXT R 

250 COLL HCHOR(10,6,3£,5) 

260 COLL HCHOR(14,3,3£,5) 

270 COLL HCH0R(7, 17, 1£0) : : COLL HCHOR(8, 18, 1£0) : : COLL HCHOR(3, 13, 1£0) 

HOR(10,£0,1£0) : : COLL HCHOR(7, 18,3£,3) 

280 COLL HCHOR(8,13,3£,£) 

230 COLL HCHOR(9,£0,3£): : COLL HCHOR(10, 16, 1£3) : : COLL HCHOR(11, 16,3£) 

HOR<11,17, 1£3): : COLL HCHOR(1£,16,3£,£) 

300 COLL HCHOR(13, 16,3£,£) : : COLL HCHOR(14, 16,3£,£) 

310 FOR R=10 TO 14 
3£0 FOR C=£3 TO £3 STEP 6 
330 COLL HCHOR(R,C,3£,£) 

340 NEXT C 
350 NEXT R 

360 0U*="De Iacobis Stefano" 

370 D*="0 Software *1984*" 

380 DISPLOV OT(£0,6):OU* :: DISPLOY 0T(£1,6):D* 

330 FOR TEMP0=1 TO 500 : : NEXT TEMPO 
400 COLL CLEOR 
410 COLL SCREEN(14) 

4£0 FOR C=£ TO 8 
430 COLL COLOR(C,£,16) 

440 NEXT C 
450 FOR SC=3 TO 1£ 

460 COLL COLOR(SC,£,14) 

470 NEXT SC 

480 DISPLOY 0T(3, DBEEP: :: DISPLOY 0T(6,7):"T E 0 

REMO" :: DISPLOY 0T(8,13):"D I" 

430 DISPLOY OT(10,7):"P I T 0 G 0 R 0" :: DISPLOY OT(13,1 ):"%%%%%%%%%%%%%%%%%%%% 
%%%%%%%%" 


: : COLL HC 

: : COLL HC 
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500 DISPLAY AT ( 16, 1) BEEP: "premi il tasto arancione deljoystick ogni volta che vu 
oifar proseguire il programma" 

510 GOSUB I960 
520 CALL CLEAR 
530 CALL SCREEN (10) 

540 DISPLAY AT(Q, 1)BEEP: :: DISPLAY AT(U,l)s"IL T 
EOREMA DI PITAGORA PUÒ’ " 

550 DISPLAY AT ( 14, 1) : "ESSERE APPLICATO SOLTANTO AI" :: DISPLAY AT( 17, 1) : "TRI ANGO 
LI RETTANGOLI" 

560 DISPLAY AT(20,1):"%%%%%%%%%%%%%%%%%%%%%%**%*%%" 

570 GOSUB 1980 
58©CALL CLEAR 

590 REM DEFINIZIONE CARATTERI 
600 A*="FF" 

640 B*=" 8080808080808080" 

620 C$="0101010101010101" 

630 D*="00000000000000FF" 

640 E*=*"808040402020 10 10" 

650 F$="0808040402020101 " 

660 G*="FF80808080808080" 

670 H$="FF01010101010101" 

680 I$="80808080808080FF" 

690 L*="01010101010101FF" 

700 M$="0102040810204080" 

710 N*="030C30C000000000" 

720 0$= " C7242414140C0C04 " 

730 P$="3048102078 " 

740 Q$="002040FF4020" 

750 CALL CHAR(96,A$ ) : : CALL CHAR(97,B* ) : : CALL CHAR(98,C$): : CALL CHAR(99, D%) ; : 
CALL CHAR(100,E*):s CALL CHAR ( 101,F*>:s CALL CHAR( 102,G*) 

760 CALL CHAR(103,H*): : CALL CHAR ( 104, I») : : CALL CHAR( 105,LO ; : CALL CHAR ( 106,M$ 
) : : CALL CHAR(107,N$): : CALL CHAR ( 108,0$) 

770 CALL CHAR ( 109, PO :s CALL CHAR(110,Q$) 

780 CALL SPRITE(£1,110,2,185,240) 

790 REM TRIANGOLO 
800 CALL SCREEN(8) 

810 CALL COLOR(9, 2, 8) 

820 CALL VCHAR(7, 13,98, 8) : : CALL HCHAR( 15, 14, 96,4) : : CALL HCHAR(7, 14,100) s: CALL 
HCHAR(8, 14, 101) : : CALL HCHAR(9, 15, 100) 

830 CALL HCHAR(10, 15, 101): : CALL HCHAR(1 1, 16, 100) : : CALL HCHAR(12, 16, 101):: CALL 
HCHAR(13, 17, 100): : CALL HCHAR(12, 16, 101 ) 

840 CALL HCHAR(13, 17,100) : : CALL HCHAR (14, 17, 101 ) 

850 DISPLAY AT(6,12):"B" :: DISPLAY AT( 15, 11 )SIZE(1) : "C" :: DISPLAY AT ( 15, 16)s"A 

II 

860 DISPLAY AT(2,4)BEEP: "QUESTO E’ UN TRIANGOLO RET- TANGOLO" 

870 GOSUB 1980 

860DISPLAY AT(22,4)BEEP: "QUESTI SONO GLI ELEMENTI CHELO COSTITUISCONO" 

890 DISPLAY AT(10, 3)SIZE(6) : "CATETO" 

900 DISPLAY AT(11,3)SIZE(8): "MAGGIORE" 

910 DISPLAY AT(17, 12)SIZE(6) : "CATETO" 

920 DISPLAY AT(18, 12)SIZE(6) : "MINORE" 

930 DISPLAY AT(10, 15) BEEP SIZE(9) : "IPOTENUSA" 

940 GOSUB 1980 

900CALL CLEAR 

960 CALL SCREEN (lt) 

970 DISPLAY AT (3, 5) BEEP : "E NUNC I ATO" :: DISPLAY AT (6, 1 ) : "%%%%%%%%%%%%%%%% 
%%%%%%%%%%:: DISPLAY AT(9, 1):"LA SOMMA DELLE AREE DEI QUA-" 

980 DISPLAY AT ( 11, 1 ) :"DRATI COSTRUITI SUI CATETI" :: DISPLAY AT ( 13, 1 ) :"E’ EQUIVA 
LENTE ALL’AREA DEL" 

990 DISPLAY AT(15, 1) :"QUADRATO COSTRUITO SULL’ IPO-" :: DISPLAY AT(17,1):"TENUSA" 
1000 DISPLAY AT(20,1 ):"%%%%%%%%%%%%%%%%%%%%%%%%%%%%" 

1010 GOSUB 1980 

40Q0OREM COSTR. QUADRATO CAT.MAGG. 

1030 CALL CLEAR 
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1040 COLL SCREEN (9) 

1050 COLL COLOR (9,2,9) : : COLL COLOR( 10,2,9) 

1060 COLL HCHAR(7,9,96,4) : : CALL VCHAR(8,8,97,6) i: CALL HCHAR ( 14,9,99,4):s CALL 
VCHAR <8, 13, 98, 6): : CALL HCHAR(7,8,102):s CALL HCHAR(14,8,104) 

1070 CALL HCHAR (7, 13, 103) : : CALL HCHAR ( 14, 13, 105) 

1080 REM COSTR. QUADR. CAT. MIN. 

1090 CALL HCHAR (15, 15,96,2) : : CALL VCHAR(16, 14,97,4) : : CALL HCHAR(20,15,99,2): : 
CALL VCHAR(16, 17,98,4): : CALL HCHAR < 15, 14, 102) 

1100 CALL HCHAR (20, 14, 104) : : CALL HCHAR(15, 17, 103) s: CALL HCHAR(20, 17, 105) 

1110 REM COSTR.QUADR. IPOTENUSA 

1120 CALL HCHAR(7, 14, 100) s: CALL HCHAR(8, 14, 101) s: CALL HCHAR(9, 15, 100) : : CALL H 
CHAR(10, 15, 101) : : CALL HCHAR( 11, 16, 100) 

1130 CALL HCHAR(12, 16, 101) : : CALL HCHAR(13,17, 100) : : CALL HCHAR(14, 17, 101)s: CAL 
L HCHAR (6, 14, 106) : : CALL HCHAR(5, 15, 106) 

1140 CALL HCHAR (4, 16, 106) : : CALL HCHAR (3, 17, 106) : : CALL HCHAR(2, 18, 106): : CALL H 
CHftR(l, 19, 106) : : CALL HCHAR( 14, 18, 106) 

1150 CALL HCHAR(13, 19, 106) : : CALL HCHAR(12,20, 106): : CALL HCHAR(11,21, 106): : CAL 
L HCHAR(10, 22, 106) : : CALL HCHAR (9,23, 106) 

1160 CALL HCHAR (1, 20, 100) : : CALL HCHAR(2,20, 101):: CALL HCHAR(3,21, 100): : CALL H 
CHAR<4, 21, 101) : : CALL HCHAR (5, 22, 100) 

1170 CALL HCHAR (6, 22, 101) : : CALL HCHAR( 7,23, 100) : : CALL HCHAR(8,23, 101) 

1180 DISPLAY ATTE2, 4) DEEP: "QUESTI SONO I QUADRATI COSTRUITI SUI LATI" 

1190 DISPLAY *AT.(U<8)SIZE(2) :"A1" 

1200 DISPLAY AT (8, 16)SIZE(2) : "A3" 

1210 DISPLAY AT <17, 13)SIZE(2) : " A2" 

1220 DISPLAY AT( 16, 21)BEEP SIZE(9) : " A1+A2=A3" 

1230 GOSUB 1980 
1240 REM MENU’DI SCELTA 
1250 CALL CLEAR 
1260 CALL SCREEN (12) 

1270 CALL COLOR (9,2, 12) 

1280 CALL COLOR (10,2, 12) 

1290 DISPLAY AT (3,1):"*%%%%%%%*%%%%%%%%%%%%%%%*%*%" :: DISPLAY AT(5, 1 ) s " 1 ) ENUNC 
IATO" :: DISPLAY AT(7,1):"2) DIMOSTRAZIONE GRAFICA" 

1300 DISPLAY AT(9,1 ) : "3> CALCOLO IPOTENUSA" :: DISPLAY AT(U,l)s"4) CALCOLO CATE 
TO MAGGIORE" :: DISPLAY AT(13,1):"5) CALCOLO CATETO MINORE" 

1310 DISPLAY AT (15, 1) :"6) FINE PROGRAMMA" :: DISPLAY AT ( 17,1)s 

•/. ■/. ■/. ■/. y. % ■/. * •/. % % " 

1320 DISPLAY AT(20,1): "SCRIVI IL NUMERO DELL’ARGO-" :: DISPLAY AT(21,1):"MENTO S 
CELTO E PREMI (ENTER) " 

1330 CALL LOCATE («1,180,240) 

1340 INPUT X 

1350 IF X) 6 THEN 1340 

1360 ON X GOSUB 950,1020,1370,1600,1790,2050 

1370 CALL CLEAR 

1380 I$="CALCOLO IPOTENUSA" 

1390 MAG*="A=CATETO MAGGIORE=" 

1400 MI N$="B=CATETO MINORE =" 

1410 L I N$= "============================" 

1420 DISPLAY AT (1,3)BEEP: I$ 

1430 DISPLAY AT(4, 1)SIZE(18) :MAG$ 

1440 DISPLAY AT (7,1 )SI ZE(18):MIN$ 

1450 ACCEPT AT (4,19)BEEP:A :: IF A<=0 THEN 1450 

1460 ACCEPT AT(7,19)BEEP:B :: IF B)A OR B<=0 THEN 1460 

1470 DISPLAY AT ( 10, 1) BEEP SI ZE (32) :LIN* 

1480 DISPLAY AT(12,5):RPT$(CHR* (99) ,5): : DISPLAY AT(13,2)SIZE (2) :"C=" :: DISPLAY 
AT( 13, 4)SIZE(1) :CHR$<108> 

1490 DISPLAY AT <13,5)SI ZE (1) : "A" :: DISPLAY AT(13,6)SIZE(1 ) :CHR*(109): : DISPLAY 
AT(1 3, 7)SIZE(2) :"+B" 

1500 DISPLAY AT ( 13,9) SI ZE ( 1 ) :CHR$(109): : DISPLAY AT(13, 10)SIZE(1): :: DISPLAY 

AT ( 13, U)SIZE(l) :CHR*<108) 

1510 DISPLAY AT(13, 12) :USING "££££.££": A'"‘2 :: DISPLAY AT < 13, 19) SIZE < 1 > : :: DI 

SPLAY AT(13, 20) sUSING "££££.££":B'"2 
1520 DISPLAY AT<12, 12) :RPT*<CHR$(99),15) 
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1530 DISPLAY AT < 15, 1 ) BEEP SI ZE (32) : LlN* 

1540 C=SQR(A''-£+B'"'£) 

1550 IP*="C=IPOTENUSA=" 

1560 DISPLAY AT<£0,1)SIZE(1£):IP* 

1570 DISPLAY AT<£0, 13) :USING "££££. ££" :C 
1580 GOSUB 1980 
1590 GOTO 1£50 

1600 REM CALCOLO CATETO MAGGIORE 
1610 CALL CLEAR 

1620 C*="CALCOLO CATETO MAGGIORE" 

1630 IP*="C=IPOTENUSA=" 

1640 MIN*="B=CATETO MlNORE=" 

1650 LIN*="============================" 

1660 DISPLAY AT(1,1)BEEP : C* :: DISPLAY AT (4, 1 ) SIZE < 18) s IP* :: DISPLAY AT<7,1)SIZ 
E(18):MIN* 

1670 ACCEPT AT(4,19)BEEP:C :: IF L <=0 THEN 1670 

1680 ACCEPT AT (7, 19) BEEP : B :: IF B> C OR B <=0 OR B> SG!R <C' v £/2) THEN 1680 
1690 DISPLAY AT <10, 1)BEEP SIZE(32):LlN* 

1700 DISPLAY AT(12,5):RPT*(CHR*(99),5) : : DISPLAY AT(13,2)SIZE(2):"A=" :: DISPLAY 
AT(13,4)SIZE(1):CHR*(108) 

1710 DISPLAY AT(13,5)SIZE(1) :"C" :: DISPLAY AT<13,6)SIZE(1):CHR*(109): : DISPLAY 
AT(13,7)SIZE(2):"-B" 

1720 DISPLAY AT(13,9) :CHR*(109) : : DISPLAY AT(13, 10)SIZE(1):" = " :: DISPLAY AT(13, 
ll)SIZE(l):CHR*(108): : DISPLAY AT(12, 12) : RPT*(CHR*(99),15) 

1730 DISPLAY AT( 13, 12) :USING "££££.££“ :C^£ :: DISPLAY AT ( 13, 19) SI ZE ( 1 ) : :: DI 

SPLAY AT ( 13, £0) :USING "££££.££": B-'£ 

1740 DISPLAY AT(15,1)BEEP SIZE(32)sLIN* 

1750 A=SQR(C---£-B-"-£) 

1760 CMG*="A=CATETO MAGGIORE=" 

1770 DISPLAY AT<20, 1)SIZE(19):CMG* :: DISPLAY AT(£0, 19)BEEP: A :: GOSUB 1980 
1780 GOTO 1250 

1790 REM CALCOLO DEL CATETO MINORE 
1800 CALL CLEAR 

1810 C*="CALCOLQ CATETO MINORE" 

1820 IP*="C=IPOTENUSA=" 

1830 MAG*="A=CATETO MAGGIORE=" 

1840 LIN*="============================" 

1850 DISPLAY AT(1,1)BEEP:C* :: DISPLAY AT <4, 1)SIZE(18) : IP* :: DISPLAY AT<7,1)SIZ 
E(18):MAG* 

1860 ACCEPT AT(4,19)BEEP:C :: IF C<=0 THEN 1860 

1870 ACCEPT AT(7,19)BEEP:A :: IF A)C OR A<=0 OR A<SQR(C~£/2)THEN 1870 
1880 DISPLAY AT(10,1)BEEP SIZE(32):LIN* 

1890 DISPLAY AT(13,4)SIZE(1) :CHR*<108): : DISPLAY AT(12,5):RPT*(CHR*(99),5) : : DIS 
PLAY AT(13,2)SIZE(2):"B=" 

1900 DISPLAY AT(13,5)SIZE(1) :"C" :: DISPLAY AT(13,6)SIZE(1):CHR*(109): : DISPLAY 
AT(13,7)SIZE(2):"-A" 

1910 DISPLAY AT(13,9) :CHR*(109): : DISPLAY AT(13, 10)SIZE(1):" = " :: DISPLAY AT(13, 

11)SIZE(1):CHR*(108): : DISPLAY AT(12, 12) :RPT*(CHR*(99),15) 

1920 DISPLAY AT(13,12):USING "££££.££":C"-£ :: DISPLAY AT(13,19)SIZE(1):"-" :: DI 
SPLAY AT( 13, £0) :USING "££££.££": A^£ 

1930 DISPLAY AT(15,1)BEEP SIZE(32):LIN* 

1940 B=SQR (C"'2-A~£) 

1950 CMN*="B=CATETO MINQRE=" 

I960 DISPLAY AT(20,1)SIZE(18):CMN* :: DISPLAY AT(£0,19)BEEP:B :: GOSUB 1980 
1970 GOTO 1250 
1980 REM 

1990 CALL JOYST(1,X,Y) 

2000 CALL MOTION(£1, -5*Y,X*5) 

2010 CALL KEY(1,KK,SS) 

2020 IF KK=18 THEN £040 
2030 GOTO 1990 
2040 RETURN 
2050 CALL CLEAR 
2060 END 
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PARTE SETTIMA 


a cura di Paolo Ciancarini 


LA POTENZA DEL 




La volta scorsa abbiamo iniziato ad esplorare il mondo 
LOGO che ci offre le potenzialità più vaste: quello della 
manipolazione simbolica. 

Abbiamo visto come primo esempio potente un 
programma che permette di effettuare operazioni su 
numeri romani. In questo numero continueremo ad 
esplorare il mondo delle parole e delle liste, per assumere 
maggiore confidenza. Piano piano ci accorgeremo che si 
può fare molto, molto di più: il LOGO ci condurrà nel 


mondo fantastico dell’Intelligenza Artificiale. 

Esplorazioni grammaticali 

La geometria non è l’unica disciplina che si presta ad uno 
studio in LOGO. È bello costruire figure complesse a 
partire da comandi e procedure quasi «spontanee»: ma si 
può fare qualcosa del genere persino per lo studio della 
grammatica. 












Anche un linguaggio come l’italiano è «costruibile» in 
LOGO, usando i potenti comandi primitivi su parole e liste. 
Facciamo qualche esempio: vogliamo scrivere una 
procedura che decide di quale coniugazione è un verbo? 


PER CONIUGAZIONE :VERBO 
SE DESINENZA :VERBO = ARE ALLORA STAMPA 
[PRIMA CONIUGAZIONE] 

SE DESINENZA :VERBO = ERE ALLORA STAMPA 
[SECONDA CONIUGAZIONE] 

SE DESINENZA :VERBO = "IRE ALLORA STAMPA 
[TERZA CONIUGAZIONE] 

FINE 

PER DESINENZA :V 

RIPORTA PAROLA (ULT MENULT MENULT :V) RE 
FINE 

CONIUGAZIONE MANGIARE 
PRIMA CONIUGAZIONE 

CONIUGAZIONE DORMIRE 
TERZA CONIUGAZIONE 


Naturalmente tutto ciò funziona abbastanza bene solo coi 
verbi regolari (eccetto alcuni, come fare e dire). 

Provate da soli a pensare cosa si deve cambiare per poter 
analizzare anche gli irregolari. 

Il problema degli irregolari è quello fondamentale per 
qualsiasi procedura sui verbi. 


PER PARTICIPIO.PASSATO :VERBO 
SE CONIUGAZIONE :VERBO = ARE 
RI PAROLA (TEMA.INFINITO :VERBO) " ATO 
SE CONIUGAZIONE :VERBO = ERE 
RI PAROLA (TEMA.INFINITO :VERBO) " UTO 
SE CONIUGAZIONE .VERBO = "IRE 
RI PAROLA (TEMA.INFINITO :VERBO) " ITO 
FINE 

PER TEMA.INFINITO :l 
RI MU MU MU :l 
FINE 

PARTICIPIO.PASSATO MANGIARE 
RISULTATO: MANGIATO 


Tutto va bene con verbi come mangiare, vedere, vestire. 
Ma per la maggior parte dei verbi di seconda 
coniugazione avremo participi completamente sbagliati. 
Sapreste dire come mai? 

Si possono inventare parecchi giochi linguistici come 
questo, e magari molto più complicati. Un solo esempio: 
un programma che sappia effettuare l’analisi logica 
(soggetto-predicato-complemento) di frasi semplici. 
Senza andare sul complicato, costruiamo un programma 
che stampa falsi oroscopi. 


PER OROSCOPO 
STAMPA PAROLA SEGNO 
STAMPA [AMORE:] 

AMORE 

STAMPA [LAVORO:] 

LAVORO 

STAMPA [CONSIGLIO DEL GIORNO:] 
CONSIGLIO.DEL.GIORNO 
FINE 


PER SEGNO 

RI ELEMENTO (ACASO 12) + 1 [ARIETE TORO GEMELLI 
CANCRO LEONE VERGINE BILANCIA SCORPIONE 
SAGITTARIO CAPRICORNO ACQUARIO PESCI] 

FINE 

PER AMORE 

ST ELEMENTO (ACASO 4) + 1 [[NON STATE DA SOLI] 
[FATE UN REGALO] [INCONTRO]] 

FINE 

PER LAVORO 

ST ELEMENTO (ACASO 3) + 1 [[SOLDI IN VISTA] 
[STATEVENE A CASA] [NON SPENDETE]] 

FINE 

PER CONSIGLIO.DEL.GIORNO 
STAMPA ELEMENTO (ACASO 3) + 1 [[PROCURATEVI] 
[DISTRAETEVI] [FATE UN VIAGGIO]] 

FINE 

OROSCOPO 

CAPRICORNO: 

AMORE: 

NON STATE DA SOLI 
LAVORO: 

STATEVENE A CASA 
CONSIGLIO DEL GIORNO: 

FATE UN VIAGGIO 


Come vedete è semplicissimo dare l’impressione che il 
programma dica cose sensate, ogni volta diverse (a causa 
dell’istruzione ACASO: notate il suo uso come primo 
parametro della primitiva ELEMENTO). Basta saper 
individuare con la procedura principale (OROSCOPO) la 
struttura (la «grammatica») di ciò che si vuole produrre. 

In pratica stabiliamo che un oroscopo si compone di 4 
parti: il segno, un consiglio sull’amore, uno sul lavoro, ed 
infine un «consiglio del giorno». 

Le sottoprocedure (SEGNO, AMORE, LAVORO, 
CONSIGLIO.DEL.GIORNO) non fanno altro che scegliere 
una frase a caso tra quelle che conoscono: potete 
cambiarle ed anche aumentarle (in quest’ultimo caso 
occorre cambiare l’argomento di ACASO. 

Questo sistema è praticamente universale, e può venire 
notevolmente complicato per raggiungere risultati 
sorprendenti: 


PER FRASI 

SCRIVI (FRASE SOGGETTO PREDICATO COMPLEMENTO) 
STAMPA Q 
FINE 

PER SOGGETTO 

RIPORTA ESEGUI (FRASE ELEMENTO (ACASO 2) + 1 
[NOME.PROPRIO NOME.COMUNE])) 

FINE 

PER NOME.PROPRIO 
RI ELEMENTO (ACASO 3 + 1 
) [PAOLO ADRIANA LUCA] 

FINE 

PER NOME.COMUNE 
RI ELEMENTO (ACASO 3) + 1 
[[IL CANE] [LA MELA][IL GATTO] 

FINE 


e così via: lascio a voi il divertimento di immaginare le 
procedure PREDICATO e COMPLEMENTO. 
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Una libreria di programmi 


Molti linguaggi moderni (ma non il BASIC) sono modulari. 
Questa caratteristica permette di progettare programmi 
suddividendo il problema di partenza in parti più piccole e 
semplici: per fare delle FRASI basta dare SOGGETTO, 
PREDICATO e COMPLEMENTO. A loro volta questi 
sottoproblemi possono essere spezzati in procedure 
ancora meno complesse, e così via, fino ad arrivare al 
livello delle istruzioni primitive. 

È molto importante il fatto che le procedure sono trattate 
alla stessa stregua delle istruzioni primitive: LOGO è un 
linguaggio estensibile. Questo vi permette, se volete, di 
crearvi un archivio, una «libreria» di procedure multiuso 
da richiamare all’occorrenza. 

Alcune procedure multiuso sono fornite, nel caso del 
LOGO Commodore, direttamente nella confezione 
originale (disco di utilità): la procedura per eseguire archi 
di circonferenza, ad esempio, o quello per stampare col 
plotter, o quella per far scrivere caratteri alla Tartaruga. 

Se individuate procedure di uso generale potete 
comunque creare un vostro disco di utilità, che diventa un 
po’ una «cassetta degli attrezzi» che vi risparmia 
parecchio lavoro. 

Potete cominciare a riempire la vostra libreria con le 
procedure che seguono; vi consigliamo di seguire per 
ciascuna il seguente procedimento, che vi faciliterà il loro 
uso: 

— scrivete CIAO: l’interprete cancellerà tutta la memoria 
di lavoro; 

— scrivete la procedura e definitela; 

— memorizzate la procedura col comando CONSERVA, 
dando al file lo stesso nome della procedura; 

— scrivete CIAO e passate alla procedura successiva in 
questo modo ogni file conterrà esattamente una 
procedura. 


PER LEGGIPAR 
RI PRI LEGGIRIG 
FINE 

PER LEGGINUM 
LOCALE "RIS 
AS RIS LEGGIRIG 

SE VUOTO? :RIS <ST [UN NUMERO, PER FAVORE, POI 
(RETURN)] RI LEGGINUM) 

SE NON NUMERO? PRI :RIS (ST [NON È UN NUMERO, RIPROVA] 
RI LEGGINUM) 

STAMPA □ 

RIPORTA PRI :RIS 
FINE 

PER SI.O.NO 
LOCALE RIS LEGGIRIG 

SE :RIS = Q (STAMPA [BATTI (S) O (N), POI (RETURN)] RI SI.O.NO) 
SE NON APPARTIENE? PRI :RIS [S N] (ST [S O N ? RIPROVA] RI 
SI.O.NO) 

RIPORTA PRI :RIS 
FINE 

PER CONTAL :L 

SE VUOTO? :L RI 0 ALTRIMENTI RI = CONTA PRI :L(+ (CONTAL 
:L), + 1 
FINE 

PER CENTRA :RIGA 
LOCALE "T 
AS " CONTAL :RIGA 
ASCUR (18 - :T /2) (ULT CORSORE) + 


STAMPA :RIGA 
FINE 

PER ASPETTA rSECONDI 
RIPETI 1000 *:SECONDI0 
FINE 

PER ESTRAI :LISTA 

RI ELEMENTO (ACASO (CONTA :LISTA)) +1 :LISTA 
FINE 

PER TOGLI : ELEM :LISTA 
SE VUOTO? :LISTA RI □ 

SE :ELEM = PRI :LISTA RI MENPRI :LISTA 
RI INPRI PRI :LISTA TOGLI :ELEM (MENPRI :LISTA) 
FINE 


LEGGIPAR serve per leggere solo la prima parola scritta 
alla tastiera (LEGGIRIG restituisce sempre e comunque 
una lista); 

LEGGINUM serve quando vogliamo essere sicuri che 
venga introdotto un numero e non una parola (il 
programma si bloccherebbe); 

SI.O.NO serve quando ci serve una selta da parte di chi 
usa il programma, e non vogliamo che batta altro che il 
carattere s (per si) o n (per no); 

CONTAL serve per contare il numero di caratteri delle 
parole comprese in una lista; la primitiva CONTA applicata 
alle liste infatta conta il numero delle parole. Notare l’uso 
elegante della ricorsione; 

CENTRA serve per posizionare elegantemente del testo 
(non più lungo di 40 caratteri) sullo schermo non grafico 
ricordatevi di salvarla insieme con la procedura CONTAL, 
perché ne fa uso. La primitiva ASCUR vuole due 
argomenti: il numero di riga ed il numero di colonna in cui 
vogliamo posizionare il cursore. 

CURSORE invece è una primitiva-funzione senza 
argomenti che restituisce una lista contenente due 
elementi: il primo è il numero di riga ed il secondo è il 
numero di colonna della posizione attuale del cursore 
sullo schermo. 

ASPETTA serve per bloccare il programma a far passare 
del tempo: ad esempio, per certe applicazioni la Tartaruga 
è... troppo veloce! e con questo comando possiamo farla 
fermare per quanto tempo vogliamo; 

ESTRAI serve per estrarre a caso un elemento da una lista 
(si potrebbe usare in OROSCOPO o in FRASI); 

TOGLI serve per togliere un dato elemento da una lista; 
notate anche qui l’uso della ricorsione. È una tecnica 
spesso usata per compiere operazioni ripetute sulle liste. 

Queste sono solo alcune delle procedure che potrete 
trovare di utilità generale. Molto dipenderà anche dal tipo 
di programmi in cui vorrete cimentarvi. Ad esempio, 
vedremo in una delle prossime puntate alcune procedure 
essenziali in qualsiasi progetto che coinvolge i ‘folletti’ 
(sprite) del C64. 


Termini LOGO introdotti in questa lezione 


LOGO italiano 

ESEGUI 

CIAO 

CURSORE 

ASCUR 

SCRIVI 


LOGO inglese 
RUN 

GOODBYE 
CURSORPOS 
CURSOR 
PRINT 1 
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ABBONATI 
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CAMPAGNA 

ABBONAMENTI 

Alcune note utili per abbonati 
vecchi e nuovi 


Il pagamento, per sottoscrivere 
l'abbonamento annuo, potrà essere inviato a 
mezzo c/c postale (pubblicato in questa 
pagina), vaglia postale o assegno bancario: 
1) per il pagamento a mezzo c/c postale, sarà 
sufficiente compilare il bollettino, sia sul 
fronte che sul retro, in maniera leggibile (a 
macchina o a stampatello) ed effettuare il 
versamento presso un ufficio postale, 
inviando copia dello stesso all’ufficio 
abbonamenti. 

2) per il pagamento a mezzo assegno 
bancario o vaglia postale, questo deve 
essere intestato a Edicomp s.r.l. ed inviato in 
busta chiusa all’ufficio abbonamenti al 
seguente indirizzo: 

Edicomp s.r.l. 

\/.le dell’Esperanto, 71 
00144 ROMA EUR 

Per ulteriori informazioni si prega di 
telefonare all’ufficio abbonamenti: 

06/5918895 








di Paolo Ciancarini 



utile 


WORD PROCESSING 

elaborazione di testi 


La volta scorsa abbiamo esaminato i programmi che ci 
consentono di ottenere i risultati più affascinanti dall’uso 
degli home-computer: il software per la grafica. 

Questa volta ci occupiamo dei programmi che svolgono la 
funzione più utile sia nella scuola che in casa, come in 
ufficio - forse l’unica, almeno allo stato attuale della 
tecnologia l’elaborazione di testo. 

Il nome inglese sotto cui sono conosciuti questi 
programmi è «word processor». Un word processor è in 
pratica un programma (cioè software, sebbene la parola 
processor possa far pensare all’hardware) che trasforma il 
vostro computer in una macchina per scrivere molto 
sofisticata. 

Il software preso in considerazione è quello del C64. Lo 
SPECTRUM dispone di qualche word processor 
dedicato, però non sono molti a causa della limitazione 
fondamentale di questo altrimenti eccellente 
home-computer: le dimensioni della tastiera, che lo 
rendono poco adatto all’elaborazione di testi. 

NOTA: questa serie di articoli vuole costituire una sorta di 
introduzione all’acquisto ed all’uso di software utile a casa 
e a scuola. I tipi di programmi che via via presenteremo 
verranno prima descritti in astratto, elencando le 
funzionalità principali e più utili che dovrebbero offrire 
all’utente. Nella seconda parte descriveremo qualche 
esempio di programma in commercio, in relazione alle 
caratteristiche desiderabili definite nella prima parte. 
L’home-computer più scalcinato, se dotato di un buon 
programma di questo tipo, è di gran lunga superiore alla 
più raffinata delle macchine per scrivere. Questo lo si 
deduce rapidamente non appena si considerano le 
funzioni messe a disposizione da qualsiasi word 
processor di buon livello. Queste sono: 

FUNZIONI FONDAMENTALI: 

1. Editing 

È una parola praticamente intraducibile, che significa più 
o meno ‘creazione e modifica’ di un testo. Le principali 
funzioni comprese nella fase di editing sono: 

a. Introduzione normale di testo mediante la tastiera; si 
deve andare a capo solo quando davvero lo richiede il 
testo (titoli, punto e a capo, ecc.). Certi programmi 
(HOMEWORD) funzionano in modalità «wordwrapping»: 
se una parola alla fine di una riga non entra tutta la portano 
automaticamente a riga nuova. 

b. Cancellazione rapida di caratteri, parole, frasi. 


c. Ricerca (di un carattere, di una parola, di una frase). 

d. Sostituzione automatica totale o parziale di una parola 
con un’altra in tutto il testo. 

e. Ridefinizione tasti: è una funzione molto utile, se si 
debbono ripetere spesso alcune parole o frasi lunghe e 
noiose da scrivere. Per esempio, se dovete usare spesso 
il termine ‘floppy disk drive’ potete associare questa frase 
ad una combinazione speciale di 2 o 3 tasti che potete 
richiamare quando vi pare: su video comparirà la frase 
associata. 

f. Copia o trasferimento di una parte del testo in un’altra 
parte. 

g. Memorizzazione: è in realtà la possibilità chiave di tutto 
il sistema. Poter memorizzare elettronicamente (su disco 
o nastro) e non soltanto su carta il vostro testo, vi 
permetterà di modificarlo molto facilmente in un secondo 
tempo, e di non stamparlo finché non sarà davvero 
necessario (con grande risparmio di carta, tra l’altro). 

Il testo memorizzato si chiama ‘file’ (pronuncia ‘fail’; 
significa «archivio» in inglese). 

La migliore versatilità è data comunque da quei 
wordprocessor che permettono non solo di salvare e 
caricare l’intero testo; ma anche solo parte di esso (SAVE 
RANGE, APPEND FILE). Inoltre dovrebbe essere possibile 
editare programmi, siano essi in BASIC o in altri linguaggi. 

2. Formattazione 

Da non confondere con la formattazione dei dischetti. 
Questa parola è un brutto neologismo che deriva dalla 
parola inglese formatting, che significa, grosso modo, 
impaginazione. Quello dei neologismi orrendi per 
l’orecchio italiano è un grosso problema irrisolto, 
soprattutto in una disciplina così «anglosassone» come 
l’informatica. Noi ci uniformiamo alla consuetudine 
generale, seppure a denti stretti. 

I comandi di formattazione sono generalmente 
inframmezzati nel testo, e denotati con qualche simbolo 
speciale, per non confoderli. Questo tipo di 
funzionamento si chiama «formattazione compilata», 
perché avviene tutta insieme subito prima della stampa. 
Alcuni wordprocessor più sofisticati permettono la 
«formattazione interpretata», cioè non appena diamo un 
comando di formattazione viene eseguito e l’effetto 
appare sul video. È un modo di funzionare decisamente 
più comodo, perché è facile modificare subito un effetto 
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non voluto. Questo è il tipo di software cui si riferisce 
l’espressione «what you see is what you get» - vale a dire 
«ciò che vedete è ciò che otterrete». 

Tra le funzioni di formattazione ricordiamo: 

a. Marginazione: è la distanza dai bordi del foglio. 

b. Spaziatura: è la distanza che intercorrerà tra le righe in 
fase di stampa. Generalmente si può scegliere tra spazio 
1,2 o 3, come su una macchina per scrivere. 

c. Giustificazione: si chiama così l’allineamento del testo 
a destra, oltre che a sinistra. Il programma la ottiene 
inserendo degli spazi bianchi tra le parole. 

d. Intestazione: sono le diciture che vengono riportate 
automaticamente a capo (e a piedi) di ciascuna pagina. 

e. Sillabazione: ci sono programmi che automaticamente 
spezzano le parole in fondo alle righe. Purtroppo seguono 
le regole inglesi, e così è meglio non avvalersi di questa 
possibilità. 

f. Salto a pagina nuova. 

g. Numerazione automatica delle pagine. 

h. Scelta delle fonti tipografiche. L’effetto di questa 
funzione dipende parecchio dalla stampante: con quelle 
COMMODORE potete scegliere tra stampa normale, 
ingrandita, reverse e sottolineata. 

i. Stampa: si dovrebbe poter scegliere tra output su carta 
e output su video, per poter controllare l’aspetto finale del 
testo. Inoltre deve essere possibile stampare solo una 
determinata pagina (per ragioni di modifica, magari) senza 
essere costretti a ristampare tutto il proprio documento. 

j. Sovrascritti e sottoscritti: a volte certi caratteri non 
vogliamo stamparli sulla stessa linea degli altri: 

X 3 + 2X 2 — 3 = 0 Xo — Y 0 =K 

i caratteri spostati si chiamano sovrascritti o sottoscritti, 
non tutte le stampanti permettono questa possibilità, 
cosicché parecchi wordprocessor non la offrono affatto. 

k. Numerazione automatica dei paragrafi: se inserite un 
nuovo paragrafo, e listate numerando tutti, questa 
funzione si preoccupa di riassegnare automaticamente i 
numeri giusti. 

l. Concatenazione di più «files»: se il testo è molto lungo, 
sarà memorizzato frazionato in più archivi. In stampa però 
vogliamo che ritorni un pezzo unico, senza soluzione di 
continuità, soprattutto per la numerazione delle pagine. 

m. Riempimento campi variabili: una lettera circolare, ad 
esempio, sarà stampata in più copie e cambierà solo 
nell'Indirizzo. Ci sono programmi che permettono di 
memorizzare a parte gli indirizzi, e poi automaticamente li 
inseriscono uno ad uno in fase di stampa. 

3. Integrazione con altri programmi 

Una terza funzione, spesso trascurata dai più ma che sta 
diventando sempre più richiesta, è la possibilità di usare il 
wordprocessor insieme con altri programmi. Ad esempio, 
cominciano ad uscire wordprocessor (BLITZTEXT, 
HOMEPAC) che possono agire da software di terminale. Il 


testo che battete viene inviato al modem e da questo 
trasmesso via telefono ad un altro calcolatore. Non solo: 
potete ricevere un testo e memorizzarlo (downloading), o 
spedire un testo precedentemente memorizzato su disco 
o nastro (uploading). A questa, che è forse la possibilità 
più affascinante offerta dagli home-computer, 
dedicheremo comunque per intero uno dei prossimi 
articoli. 

DeH’indirizzario abbiamo già parlato. In generale sarebbe 
utile avere integrazione con un programma per la 
memorizzazione di dati (data base) e con un programma 
grafico, per poter inserire disegni nel testo. I programmi 
EASY SCRIPT e SUPERBASE offrono un esempio di 
integrazione word-processor/database. Purtroppo non 
risultano essere in circolazione esempi di integrazione con 
software grafico. 

4. Spelling 

Come tutti sanno un calcolatore non può controllare il 
senso nè la sintassi di quello che scriviamo. I linguaggi 
naturali sono troppo ricchi di eccezioni alle regole - siano 
esse grammaticali o semantiche - per poter essere trattati 
algoritmicamente. 

Si può però controllarne la forma lessicale: ad esempio 
esistono programmi che analizzano il testo e segnalano 
tutte le parole scrite male. Non ne esistono per l’italiano, 
ma ce ne sono molti per l’inglese. I più sofisticati 
permettono di estendere il vocabolario noto al 
programma: è chiara l’utilità nel caso di uso frequente di 
termini scientifici legati ad un campo particolare. 

I programmi 

Magic Desk I (Commodore) 

Forse il primissimo wordprocessor scritto per C64. Ci fu 
chi lo vide come la risposta della Commodore al software 
per Macintosh della Apple. In realtà come risposta lasciò 
parecchio a desiderare. 

Magic Desk si presenta come un programma integrato di 
elaborazione e archiviazione testi. Il word processor si 
comporta visivamente come una macchina per scrivere (si 
sente persino il click dei tasti). È previsto l’uso di joystick 
(un sostituto davvero povero del mouse del Macintosh) 
per facilitare l’interazione tra le varie parti del programma. 
La lentezza della memorizzazione, la tutto sommato 
pessima realizzazione dell’interazione con l’utente, e la 
non funzionalità di certi moduli (forse prevista per una 
successiva versione, al momento attuale annunciata), ne. 
hanno decretato la cattiva riuscita. 
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Easy script. 

È il primo e più diffuso wordprocessor su C64. È 
sufficientemente completo, ma un po’ rozzo in confronto a 
quelli usciti successivamente. Il manuale è molto 
completo e leggibile. 



Permette lo spelling automatico se si possiede il 
programma Easyspell. 

Paperclip (Batteries Included). 

È attualmente il mio wordprocessor preferito. È molto 
completo (mancano però le funzioni di terminale), 
soprattutto per quel che riguarda l’output su video o carta. 
Il testo può essere visualizzato ad 80 colonne (come è 
noto, il C64 funziona normalmente su 40 colonne). Sono 
offerti, ma solo su video, moltissimi tipi di caratteri: cirillici, 
greci, europei, corsivi, ornamentali, ecc. 



Ma la caratteristica certo più interessante è che può 
pilotare qualsiasi stampante, a margherita o ad impatto. 
Può funzionare in integrazione col programma Paperspell, 
per lo spelling. Inoltre, caso più unico che raro, è 
completamente compatibile sia in lettura che in scrittura 
con testi prodotti da un’altro wordprocessor: EASY 


IHHHt CftSV SCRIPT ll)HW 

<C> PRECISIOH SOrTMARC LTD. 1382 

EHTER TEXT MIDTH <48-248» COLS ? BH 
< D >ISK OR <T»APE ? D 
PRIHTER TVPE <8-4> ? 8 
8 = CBM 
1 NX88 

2-SPIHURITER 

3^ OU«;/t> I ABL0^33BB 

4=OTHER 


SCRIPT. 

È possibile editare testi in BASIC e addirittura in LOGO. 

Homeword (Sierra on Line) 

È forse, per concezione, il migliore wordprocessor per 
C64 esistente sul mercato. L’uso della formattazione 
interpretata («what you see is what you get»), di uno 
schermo diviso in più finestre, di menù ad icone (stile 
Magic Desk) ne fanno uno strumento di uso 
semplicissimo. È infatti molto curata la facilità d’uso da 
parte dell’utente. 




Purtroppo sono particolarmente lente tutte le operazioni 
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che coinvolgono l’unità a dischi. Inoltre si fa uso di una 
formattazione particolare dei dischi di lavoro - 
probabilmente per ragioni di protezione -, e questo lo 
rende assolutamente non integrabile con altro software. 

Blitztext 

È abbastanza vecchio e poco sofisticato, però è uno dei 
pochi wordprocessor che si può usare anche come 
programma di terminale, se collegato ad un modem. 
Inoltre è possibile usarlo con i wordprocessor di altri 
computer, soprattutto portatili. Se avète un MIO Olivetti, 
che è completamente portatile, potete creare i vostri testi 
in viaggio, ad esempio, e poi arrivati a casa tramite 
modem e Blitztext potete scaricarli su C64. 

Homepac (Batteries Included) 

È uno dei più recenti e completi prodotti per l’elaborazione 
di testi. É integrato con un programma di terminale e un 
database. 




È riccamente fornito di menù (il Macintosh ha fatto 
scuola), e assai semplice da usare: non siete più costretti 
a ricorrere continuamente al manuale. 

L’aula informatizzata 

Quale potrebbe essere l’uso di un wordprocessor nella 
scuola? Immaginate un’aula in cui i banchi sono sostituiti 



da videi con tastiere. A ciascun posto di lavoro un allievo è 
impegnato nella stesura di un componimento. 

Al posto della cattedra c’è un altro video con tastiera, da 
cui però l’insegnante può collegarsi via radio (sui fili si 
inciampa!) o con ciascun allievo singolarmente, per 
esaminare il suo lavoro istantaneamente, o inviare testo a 
tutti. 

Fantascienza? Non più. La A.Di.S. s.r.l. (Apparecchiature 
Didattico Scientifiche), di Cusano Milanino, comincerà dal 
prossimo anno a fornire alle scuole proprio un’aula 
informatizzata composta da 15 ‘banchi’ dotati ciascuno di 

C64 e monitor, da una cattedra dotata anch’essa di C64, 
facente funzioni di unità centrale dotata di floppy disk 
drive e stampante MPS803. 



Il collegamento avviene via radio, tramite unità 

ricetrasmittenti potenti (fino a 5 watt, per permettere 

l’eventuale collegamento inter-aula), e permette: 

— l’invio di dati da disco a qualsiasi periferica e viceversa; 

— la stampa di qualsiasi risultato; 

— l’intervento passivo della centrale che può esaminare, 
copiandolo, il video di qualsiasi C64 periferico; 

— l’intervento attivo della centrale che permette qualsiasi 
scambio di informazioni tra centrale e periferica — ed 
evidentemente l’intervento diretto dell’insegnante sul 
lavoro dell’allievo; 

— possibilità di trasmissione della voce per uso come 
laboratorio linguistico. 

Certo l’uso di quest’aula non è confinato alle ore di 
italiano, anzi! Anche per la scuola il futuro è 
cominciato... 
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PARTE QUINTA 



LINGUAGGIO MACCHINA 

a cura di Massimo Momo 


Nell’articolo precedente abbiamo cominciato ad 
analizzare alcune istruzioni del microprocessore Z80: in 
particolare abbiamo visto come caricare un numero in uno 
qualsiasi dei registri ad 8 bit, come spostare dati tra i 
registri ad 8 bit e come trasferire il contenuto di una cella 
di memoria di indirizzo specificato in Accumulatore e, 
viceversa, come trasferire il contenuto del’Accumulatore 
in una cella di memoria di indirizzo specificato. 

Sovente però in un programma, l'indirizzo della cella di 
memoria da cui prelevare oppure in cui scrivere un dato 
non è specificabile direttamente, ma viene calcolato dal 
programma stesso; in questo caso sarebbe opportuno 
mantere tale indirizzo in un registro a 16 bit interno allo 
Z80. Abbiamo già visto che i due registri IX e IY sono a 16 
bit e possono quindi servire allo scopo; vi sono infatti una 
serie di istruzioni che utilizzano tali registri per «puntare» 
una cella di memoria. 

Un altro modo molto comune per ottenere registri a 16 bit 
è quello di considerare contemporaneamente due registri 
a 8 bit; infatti i registri B,C,D,E,H e L sono sei registri a 8 
bit, ma vi sono istruzioni che considerano le coppie BC.DE 
e HL come tre registri a 16 bit dove i registri B,D e H 
rappresentano i bytes più significativi mentre C,E e L quelli 
meno significativi. 

Quindi vi sarà l’istruzione: 

LD A, (rr) significato: A <- (rr) 

che si legge: carica in A il contenuto della cella di memoria 
il cui indirizzo è specificato dalla coppia di registri rr, 
essendo rr una delle coppie BC.DE o HL. Vi sarà 
naturalmente anche l’istruzione inversa: 

LD (rr), A significato: (rr) <- A 

che si legge: carica l’Accumulatore nella cella di memoria 
di indirizzo specificato dalla coppia di registri rr, essendo 
al solito rr una delle coppie BC, DE o HL. Dovrebbe 
apparire chiaro che l’istruzione LD A, (28000) è 
perfettamente equivalente all’istruzione LD A, (HL) se la 
coppia HL vale 28000, cioè se H=109 (byte più 
significativo) e L.=96 (byte meno significativo). 

Fra le coppie BC, DE e HL quella più importante (cioè 
quella per la quale sono disponibili più istruzioni) è HL. Vi 


sono infatti istruzioni che fanno riferimento solo a tale 
coppia; è questo il caso dell’istruzione: 


LD (HL), n 

significato: (HL) <- n 

che si legge: carica il numero n nella cella di memoria il cui 
indirizzo è specificato dalla coppia HL. In modo analogo 
esistono le istruzioni: 

LD r, (HL) 

significato: r <- (HL) 

LD (HL), r 

significato: (HL) <- r 


che permettono: la prima di caricare il contenuto della 
cella di memoria con indirizzo specificato dalla coppia HL 
nel registro r dello Z80; la seconda di caricare il contenuto 
del registro r nella cella di memoria con indirizzo 
specificato da HL, essendo il registro r uno qualsiasi dei 
registri A,B,C,D,E,H,L. 

Quando l’elaborazione in corso riguarda la 
determinazione di un indirizzo, diviene essenziale operare 
con informazioni a 16 bit. Tutti i registri a 16 bit hanno la 
possibilità di essere caricati direttamente con un numero 
(naturalmente compreso tra 0 e 65535) mediante 
l’istruzione: 

LD dd, nn significato: dd <- nn 

che si legge: carica il valore nn nella coppia di registri dd, 
essendo dd uno qualunque dei registri a 16 bit 
BC,DE,HL,IX,IY,SP. Purtroppo non esistono istruzioni che 
permettono di trasferire il contenuto di un registro a 16 bit 
in un altro registro a 16 bit (se si esclude il registro SP di 
cui ci occuperemo dettagliatamente in seguito). Quindi 
per trasferire il contenuto del registro DE nel registro BC si 
dovranno eseguire due istruzioni: 

LD B,D 
LD C,E 

In modo analogo ai registri a 8 bit, è possibile trasferire 
informazioni a 16 bit la - parola «dati» non viene utilizzata 
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per non generare confusione, in quanto per noi i dati sono 
quelli che transitano sul Bus dei Dati e quindi sono a 8 bit: 
in realtà un dato a 16 bit è ottenuto per mezzo di due dati 
a 8 bit che transitano uno dopo l’altro sul detto bus tra la 
memoria ed i registri interni tramite l’istruzione: 

LD dd, (nn) 

significato: ddl <- nn ddh <- (nn+1 ) 

Tale istruzione si legge: carica il contenuto della cella di 
memoria di indirizzo nn nel byte meno significativo del 
registro dd (ddl), e carica il contenuto della cella di 
indirizzo nn+1 nel byte più significativo del registro dd 
(ddh), essendo dd uno dei registri BC,DE,HL,IX,IY,SP. 
Spieghiamoci con un esempio: l’istruzione LD BC,(28000) 
carica nel registro C il contenuto della cella di memoria di 
indirizzo 28000, e nel registro B il contenuto della cella di 
memoria di indirizzo 28001. Naturalmente vi è anche 
l’istruzione inversa: 

LD (nn), dd 

significato: (nn) <- ddl (nn)+1 <- ddh 

Tale istruzione si legge: carica il byte meno significativo 
del registro dd nella cella di memoria di indirizzo nn ed il 
byte più significativo di dd nella cella di indirizzo nn+, 
essendo, al solito, dd uno qualsiasi dei registri 
BC,DE,HL,IX,IY,SP. 

A questo punto passiamo ad analizzare le istruzioni 
aritmetiche: poiché queste agiscono sui bit del rfegistro 
FLAGS, è opportuno analizzare tale registro in dettaglio. 
Come già accennato in uno degli articoli precedenti, il 
registro FLAGS fornisce informazioni circa lo stato interno 
dello Z80; ognuno dei suoi otto bit ha un preciso 
significato, come mostrato qui di seguito: 

7 6 5 4 3 2 1 0 


SZ-H-P/VNC 

ESSENDO: 

C = Flag di riporto (CARRY) 

N = Flag di Addizione/Sottrazione 
P/V = Flag di Parità e di Fuori Capacità 
(OVERFLOW) 

H = Flag di Mezzo riporto (HALF CARRY) 

Z = Flag di Zero 
S = Flag di Segno 

I tre flags più importanti, che analizzeremo subito, sono il 
flag di Riporto, quello di Zero e quello di Segno. 

— Il flag di riporto (CARRY) viene posto ad 1 tutte le volte 
che il risultato di un’addizione è troppo grande per 
essere memorizzato in un registro (cioè è maggiore di 
225) - oppure vi è riporto dopo una sottrazione. 

— Il flag di zero è molto semplice da utilizzare: esso 
diventa 1 tutte le volte che il risultato di un’operazione 
aritmetica è zero; in tutti gli altri casi tale bit rimane a 0. 

— Per quanto riguarda il flag di segno occorre 
osservare che fino ad ora abbiamo considerato, come 


dati, numeri positivi compresi tra 0 e 255. 

È possibile però programmare il computer in modo da 
permettergli di lavorare anche con numeri negativi; per 
convenzione, quando si vuole operare 
contemporaneamente con numeri positivi e negativi, si 
usa l’ultimo bit (bit 7) per conservare l’informazione del 
segno del numero: in particolare, i numeri positivi avranno 
tale bit pari a 0 mentre quelli negativi avranno il bit 7 
uguale ad 1, in quanto vengono rappresentati con la 
cosiddetta «rappresentazione in complemento a 2». In 
pratica dato un numero positivo (per esempio 6), il numero 
che rappresenta -6 si otterrà sottraendo il numero dato da 
256 (cioè -6 è rappresentato dal numero 250). In 
definitiva, quando si usa la rappresentazione di un numero 
con segno, il valore che può essere contenuto in un 
registro o in una cella di memoria non è più compreso tra 0 
e 255 ma tra +127 e-128. 

Tornando quindi al flag di segno, esso diverrà 1 tutte le 
volte che il risultato di un’operazione aritmetica è un 
numero negativo (cioè ha il bit 7 «alzato» ad 1); altrimenti 
rimarrà a 0. 

Passiamo ora in rassegna le diverse istruzioni aritmetiche 
e vediamo come esse agiscono sui bit di flag. 

Le operazioni di questo tipo più utilizzate sono 
l’incremento e il decremento di 1 del contenuto di un 
registro o di una cella di memoria; vi sono due istruzioni 
che permettono di effettuare queste operazioni: 


INC r 

significato: r <- r+1 

DEC r 

significato: r <- r—1 


Tali istruzioni aumentano e decrementano di uno il valore 
del registro r, che può essere uno dei registri 
A,B,C,D,E,H,L. Da notare che è possibile anche 
aumentare o decrementare di uno il contenuto di una cella 
di memoria; per fare ciò occorre porre nella coppia di 
registri HL l’indirizzo della cella di memoria in oggetto. Vi 
sono quindi le istruzioni: 

INC (HL) significato: (HL) <- (HL) +1 
DEC (HL) significato: (HL) <- (HL) -1 


Consigliamo a questo punto di caricare il programma 
VEDIREGIS presentato nel terzo articolo della serie e 
portare in memoria i seguenti dati: 


28000 

60 

INC A 

28001 

205 208 

108 CALL 27856 


Ricordiamo che la chiamata a subroutine CALL 27856 
serve al programma VEDIREGIS per memorizzare e 
visualizzare lo stato di tutti i registri interni dello Z80. 
Portiamo il Program Counter a 28000 (con la funzione 
PC28000) e andiamo in esecuzione con la funzione «R». 
Se in Accumulatore era presente il valore 0, vedremo a 
questo punto che l’Accumulatore conterrà il valore 1, 
come era prevedibile; possiamo anche notare che i flags 
non sono cambiati. 

Carichiamo a questo punto in Accumulatore il valore 127 
(con la funzione Al 27) e, dopo aver riportato il Program 
Counter a 28000, rilanciamo il programma con «R». Come 
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è ovvio il risultato dell’operazione sarà quello di avere in 
Accumulatore il valore 128; da notare che il flag di segno è 
divenuto 1 in quanto, nel passaggio da 127 a 128, il bit 7 
dell’Accumulatore è passato da 0 a 1 (vedi 
rappresentazione binaria dell’Accumulatore). 

Sostituiamo a questo punto l’istruzione INC A con DEC A, 
il cui codice operativo è 61, carichiamo in Accumulatore il 
valore 1 e facciamo ripartire il programma dall’indirizzo 
28000. Come ci si può aspettare, dopo tale istruzione 
l’Accumulatore conterrà il valore 0 - questo sarà 
segnalato anche dal flag di zero (Z) che sarà alzato a 1. 

In modo analogo è possibile incrementare o 
decrementare registri a 16 bit mediante le istruzioni: 


INC rr 

significato: rr <- rr+1 

DEC rr 

significato: rr <- rr-1 


dove rr può essere uno dei registri BC,DE,HL,IX,IY,SP. 

È importante notare che queste ultime due istruzioni, a 
differenza delle corrispondenti a 8 bit, non influenzano i bit 
di flag; questo vuol dire che se per esempio la coppia BC 
vale 1 ed eseguiamo l’istruzione DEC BC, tale registro 
passerà a 0 ma il flag di zero non verrà alzato. 

Per adesso fermiamoci con lo studio delle istruzioni dello 
Z80 e passiamo alla pratica. 

Questo mese abbiamo preparato un programma per lo 
Spectrum che permette la rotazione degli attributi (cioè 
dei colori) dello schermo. Tale rotazione può essere da 
sinistra a destra, da destra a sinistra, dall’alto in basso e 
dal basso in alto. 

Prima di tutto è necessario conoscere il modo con cui lo 
Spectrum memorizza tali attributi. Lo schermo, come 
sapete, è diviso in 24 righe, ognuna costituita da 32 
caratteri; a partire dalla cella di memoria di indirizzo 22528 
e fino alla cella di indirizzo 23295 vengono memorizzati i 
768 (32*24) attributi dei caratteri dello schermo; 
ricordiamo che per attributi si intendono il colore dello 
sfondo (PAPER), quello dell'Inchiostro (INK), la possibilità 
di avere un carattere più luminoso (BRIGHI) e/o 
lampeggiante (FLASH). Per esempio la cella di memoria di 
indirizzo 22528 memorizza gli attributi del carattere che si 
trova a riga 0 e colonna 0 (il primo in alto a sinistra); la cella 
di indirizzo 22529 memorizza gli attributi del carattere a 
riga 0 e colonna 1 e così via fino all’ultimo carattere in 
basso a destra che ha i suoi attributi memorizzati nella 
cella 23295. 

Il modo con cui tali attributi sono memorizzati negli otto bit 
che costituiscono la cella di memoria è il seguente: 

- bit 7 :1 = FLASH ON 0 = FLASH OFF 

- bit 6 :1 = BRIGHT ON 0 = BRIGHT OFF 

- Bit 5,4,3 : PAPER (da 0 a 7) 

-bit 2,1,0: INK (da 0 a 7) 


All’accensione, il programma residente sulla ROM dello 
Spectrum carica in tutte le celle degli attributi il valore 56 
che corrisponde alle istruzioni Basic: FLASH 0,BRIGHT 
0,PAPER 7 INK 0. 

Il listato Assembler del programma, chiamato 
«ROTATTR», è mostrato in LISTING 1 (come vedete, i 
programmi Assembler, anche se semplici, sono piuttosto 


lunghi). Tale programma utilizza istruzioni che ancora non 
abbiamo incontrato ed è per questo che rimandiamo la 
sua spiegazione (istruzione per istruzione) al prossimo 
articolo. 

Per caricare tale programma in memoria potete usare 
«CARICAMEMO» presentato neN’Articolo 2 di questa 
serie a partire da un indirizzo qualunque, in quanto la 
routine è completamente rilocabile (nel Listing 1 esso 
inizia all’indirizzo 50000). 

È stato preparato anche un piccolo programma 
dimostrativo in BASIC che ha lo scopo di far ruotare in 
modo casuale gli attributi dello schermo in una delle 
quattro direzioni possibili; abbiamo chiamato tale 
programma «ROTDEMO» ed il suo listato è mostrato in 
LISTING 2. Come potete vedere, il programma prima di 
tutto carica il blocco di bytes che costituiscono il 
programma in linguaggio macchina «ROTATTR» 
precedentemente salvato su nastro (a tale scopo può 
essere usato il programma «CARICAMEMO»: la 
lunghezza del blocco da salvare è 98). È quindi 
consigliabile memorizzare su nastro prima il programma 
«ROTDEMO» e poi il blocco di bytes «ROTATTR». 

Buon lavoro e a presto. 


STRUTTURA PROGRAMMA BASIC 


30-68 

= Generazione disegno sulle prime 
22 righe dello schermo. 

70-75 

= Generazione disegno sulle ultime 
due righe dello schermo 

80-90 

= Stampa messaggi esplicativi 

100 

= Determinazione, mediante 
numero random, della direzione 
e del verso della rotazione 

110 

= Determinazione della durata di 
tale rotazione 

150-170 

= Rotazione 

180 

= Ripetizione dell’intero processo 


VARIABILI BASIC 

B = Colore dello sfondo (PAPER) 

I = Numero random compreso tra 0 e 3 
(serve per il calcolo della variabile IN) 

IN = Variabile che, in funzione della direzione 
e del verso della rotazione, dà il valore 
da sommare all’Indirizzo 50000 per 
ottenere l’indirizzo d’inizio di una delle 
quattro routines di rotazione 
N = Numero random, compreso tra 16 e 32, 
che determina la durata della rotazione 
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LISTINO J 











ROUTINE 1 

ROTATTR" 








50000 

17 

255 90 

L_R 

LD DE,23295 

50051 

167 




AND A 

50003 

1 

31 0 

REP 

LD BC,31 

50052 

237 

82 



SBC HL,DE 

50006 

98 



LD H,D 

50054 

209 




POP DE 

50007 

107 



LD L,E 

50055 

126 




LD A,(HL) 

50000 

43 



DEC HL 

50056 

18 




LD (DEI,A 

50009 

26 



LD A,(DE) 

50057 

16 

244 



DJNZ REP2 

50010 

237 

184 


LDDR 

50059 

113 




LD (HL),C 

50012 

18 



LD (DE),A 

50060 

225 




POP HL 

50013 

27 



DEC DE 

50061 

35 




INC HL 

50014 

122 



LD A,D 

50062 

124 




LD A,H 

50015 

254 

87 


CP 87 

50063 

254 

91 



CP 91 

50017 

32 

240 


JR NZ,REP 

50065 

32 

232 



JR NZ,REP3 

50019 

201 



RET 

50067 

201 




RET 






50068 

33 

O 

88 

D_U 

LD HL,22528 

50020 

17 

0 88 

R_L 

LD DE,22528 

50071 

229 



REPS 

PUSH HL 

50023 

1 

31 0 

REP1 

LD BC,31 

50072 

78 




LD C,(HL) 

50026 

98 



LD H,D 

50073 

6 

23 



LD B,23 

50027 

107 



LD L,E 

50075 

229 



REP4 

PUSH HL 

50028 

35 



INC HL 

50076 

17 

32 

0 


LD DE,32 

50029 

26 



LD A,(DE) 

50079 

25 




ADD HL,DE 

50030 

237 

176 


LDIR 

50080 

209 




POP DE 

50032 

10 



LD (DE),A 

50081 

126 




LD A,(HL) 

50033 

19 



INC DE 

50082 

18 




LD (DE),A 

50034 

122 



LD A,D 

50083 

16 

246 



DJNZ REP4 

50035 

254 

91 


CP 91 

50085 

113 




LD (HL),C 

50037 

32 

240 


JR NZ,REP1 

50086 

225 




POP HL 

50039 

201 



RET 

50087 

35 




INC HL 

50040 

33 

224 90 

U_D 

LD HL,23264 

50088 

125 




LD A,L 

50043 

229 


REP3 

PUSH HL 

50089 

254 

32 



CP 32 

50044 

78 



LD C,(HL) 

50091 

32 

234 



JR NZ,REP5 

50045 

6 

23 


LD D,23 

50093 

201 




RET 

50047 

229 


REP2 

PUSH HL 







50040 

17 

32 0 


LD DE,32 
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4 REM ################### 

65 NEXT C 

5 REM * * 

68 LET B-B+li NEXT A 

6 REM# ROTATTR # 

70 FOR K*0 TO 1 

7 REM # # 

71 FOR I“0 TO 30 STEP 2 


72 LET B-B+li IF B>7 THEN LET B-B-8 

9 REM # dieoatrativo # 

73 PRINT #0;AT K,I( PAPER B| INK 7-B 

10 REM # rotazione # 

r ■; 

11 REM # attributi « 

75 NEXT It NEXT K 

12 REM # # 

80 PRINT *2; INK 8| PAPER B|AT 10,6| 

13 REM # M. MONO 1985 # 

"PROVA SCROLL ATTRIBUTI" 

14 REM # # 

90 PRINT 12; INK 8; PAPER 8|AT 21,6| 

15 REM ##############♦#### 

"PREMI BREAK PER FINIRE" 

16 REM 

100 LET I■INT (RND#3#0.5)i LET IN-O* < 

17 REM 

I«0)#20#(I-1)#40#(I-2)#68#(I«3) 

18 CLEAR 49999i PRINT AT 10,2j"non i 

110 LET N*INT (RND*16)+16 

ereare il regi•tratore" 

150 FOR A-l TO N 

20 LOAD ""CODE 

160 LET L-USR (50000+IN) 

30 BORDER 2i CLS i LET B-O: FOR A»1 

170 NEXT A 

TO 11 

180 GO TO 100 

38 FOR C»1 TO 4 

200 REM 

40 FOR I-l TO 8 

210 REM 

45 LET B-B+li IF B>7 THEN LET B-B-8 

1000 SAVE "ROTDEMO" LINE 1 

50 PRINT PAPER B; INK 7-B|" "| 

1010 SAVE "ROTATTR-CODE 50000,97 

60 NEXT I 



ATTENZIONE !! 


LI5T h£i cambiato >CdC. 



tel -: ue s 
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Cod ice 

Titolo programma 

COhtiODORE 64 

LIST No 

Prezzo Note 

C6401N-D 

Geometria 1 

SEGA SC 3000 

8-9/1985 8000-10000 *** 

SC301N 

Math Software 

SHARP MZ 700 

8-9/1985 

8000 

MZ701N 

Biglietti da visita 

TEXAS TI 99/4A 

8-9/1985 

8000 

TI90 IN 

Scheda su P. Mondrian 

TOSHIBA HX-10 

8-9/1985 

8000 

MSX0 IN 

MSX Sprite 

8-9/1985 

8000 

MSX02N 

Poker 

8-9/1985 

8000 

L 1 u 11im« 
i floppy- 

lettera del codice e’ N 
d isks . 

per i nastri in 

cassetta e D per 

*** Nella 

versione su floppy-disk 

il prezzo sale 

a 1 ire 10000. 

N.B. I prezzi si intendono comprensivi di spese 

postaii. 
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GEOMETRIA 1 

di PIERO VERZASCHI 


QUESTO PROGRAMMA È DISPONIBILE SU CASSETTA O 
DISCO PRESSO LA REDAZIONE. 

PER LE ISTRUZIONI DI ACQUISTO CONSULTARE LA PAGINA 
DI APERTURA DELLA SEZIONE SOFTWARE. 


Geometria è un programma molto elementare in 
grado di calcolare, in tempo reale, il determinante di 
una matrice 3*3 e di effettuare il prodotto righe per 
colonne di due matrici di ordine massimo 6*6. 

Per il calcolo del determinante si sfrutta il metodo di 
Sarrus che è brevemente illustrato nel suo 
svolgimento, qui di seguito: 


z = (e*g) + (f*l) 

xl = (a*h) + (b*m) 

yl = (c*h) + (d*m) 

zi = (e*h) + (f*m) 

x2 = (a*i) + (b*n) 

y2 = (c*i) + (d*n) 

z2 = (e*i) + (f*n) 


= F(n) 


F(n) =[(a*e*i) + (d*c*h)+(b*f*g)]- 
-[(c*e*g) + (h*f*a) + (b * d * i)] 

Per il calcolo del prodotto tra matrici è valido il 
seguente procedimento riportato nell’esempio: 


a b 

g h i 

x xl X2 

c d * 

1 m n 

= y yi y2 

e f 


z zi z2 

= (a*g) + 

(b*l) 


= (c*g) + 

(d*l) 



Le istruzioni, nell’esecuzione del programma, 
compaiono scritte in minuscolo, quindi non 
preoccupatevi per gli strani simboli grafici che 
appaiono nel listato, basta fare attenzione a digitare 
esattamente gli stessi segni, per quanto strani ed 
astrusi possano sembrare (per es. nella linea 400 gli 
strani segni racchiusi tra gli apici verranno letti, una 
volta eseguito il programma, come ISTRUZIONI). 
Attenzione: per digitare quella parte di programma 
che va dalla linea 2530 alla linea 2580, bisogna usare 
le abbreviazioni per le istruzioni PRINT e TAB. Sul 
manuale d’uso sono indicate a pagina 130 e 131 
(versione italiana). In ogni caso le abbreviazioni sono: 
PRINT = ? 

TAB( = T[SHIFT] +A 

Nell’abbreviazione per TAB è contenuta anche la 
parentesi. Ricordarsi quindi di richiuderla. 


REM ***i 
REM « 


«iM************************ 

GEOMETRIA « 

10 REM «*«««««««««««««*«««««««*»««**««« 

20 REM «CREATO DA: « 

30 REM « PIERO VERZASCHI « 

40 REM «RONCIGLIONE, AGOSTO 1984 « 

50 REM «««««««««»«««««*««««««««*«*««««« 

60 PRINT "11" : REM « CLEAR SCHERMO « 

61 REM «««««*«««*««««««««*««««««««««««« 

62 REM « CREAZIONE RUMORE & * 

63 REM * PRESENTAZIONE PROGRAMMA « 

64 REM «««««««*«««««««««««««««««««««««* 

65 PQKE53280,6 

66 T=T+1 

70 SI=54272 = FL-SI : FH-81 +1 : TL=SI+2 : TH*SI + 

3 :W*SI+4:A=SI+5:H-SI+6:L=SI+24 

80 FORX=15TQ0STEP-2.5 

90 P0KEL , X :P0KEA,15:P0KEH,0 :P0KEFH,40 : PO 

KEFL,200 : POKEN , 129 

100 NEXT 

110 PQKEW,0 : PGKEA,0 

120 READG : IFQ=-1THEN150 

130 PGKE1275+T , Q : G0TQ66 

140 DATA16,9,5,18,15,32,22,5,13,26,1,19, 

3,8,9,-1 

150 ’ FORD* 1T08 : READ J : P0KE1358+D, J •* NEXT 

160 DATA16,18,5,19,5,14,20,1 

170 PRINT"WWWWBWWWWB":FORC=1TO550:NEXT 


180 P0KE53281,1 : GOSUB200 

190 A= 1 : PRI NT • ' : POKE53280 , 6 •' P0KE53281 , 1 

: P0KE53272,20 

195 : 

200 PRINT"5 K 


210 PRINT 1 * 

220 PRINT** I I I 
230 PRINT** *•-1 b 


I I I I I 


I I 


L L 


240 PRINT** I 1 -' *•-^ l l l-. 

250 PRINT** s ' 

260 IFA=1THEN290 
270 FORT=0TO2000 : NEXT 
280 ; RETURN 

284 REM *««*««««*«*««*«*«««*«*«««**«*«« 

285 REM * M E N U' « 

286 REM ««*«««««««««««««««««««««««««««« 

290 PRINT"* - 


300 PRINT** 
310 PRINT" 


OPZIONI POSSIBILI 


320 PRINT"WS 
STRUZIONI WS" 


rapi: 
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330 PRINT” r^33. CRLCOLO DETER 

MINANTE MB" 

340 PRINT" V53. . . PROD. RIGHE PER 

COLONNE m" 

345 PRINT" fSF78... TERMINE DELL' U 

TILIZZQ" 

343 A9X=0 

350 GETA$:IFA*=""THEN350 
360 IFRt*''THEN390 
370 IFfl$= ' 'THEN900 
380 I FA$= ' 'II' ’THEN 1900 

385 I FAf-' 11' 'THEN3000 

386 REM ******************************* 

387 REM * ISTRUZIONI * 

388 REM ******************************* 

390 P0KE53272,22 

400 PRINT"!» ^ \ * s T / 

410 PRINT tì'.L PROGRRMMR E 'STATO CONCEPIT 
0 IN MODO" 

420 PRINT"DA FORNIRE UN VALIDO AIUTO PER 
CHIUNQUE" 

430 PRINT"SI TROVI ALLE PRESE CON PROBLE 
MI DI GEO" 

440 PRINT-METRIR MATRICIRLE. " 

450 PRINT'XL PROGRAMMA E IN GRADO DI SVO 
LGEPE DUE" 

460 PRINT"DIVERSI SERVIZI,CHE SONO BREVE 
MENTE IL-" 

470 PRINT"LUSTRATI QUI DI SEGUITO." 

480 PRINT "fi SPER CONTINUARE BATTI UN 
TASTO" 

481 REM ******************************* 

482 REM * ISTRUZIONI 2' PAGINA * 

483 REM ******************************* 
490 GETA$:IFR$=""THEN490 

500 PRINT L PRIMO SERVIZIO CHE IL PRO 
GRRMMA E'" 

510 PRINT"IN GRADO DI COMPIERE, E ' DATO D 
ALLA POS-" 

520 PRINT"SIBILITA' DI CALCOLARE VELOCEM 
ENTE IL " 

530 PRINT"DETERMINANTE DI UN MATRICE DI 
ORDINE " 

540 PRINT"PARI A TRE." 

550 PRINT"W SPER CONTINUARE BATTI UN T 
ASTO" 

551 REM ******************************* 

552 REM * ISTRUZIONI 3' PAGINA * 

553 REM ******************************* 

560 GETA$:IFA$=""THEN560 
570 PRINT"!»-.L SECONDO SERVIZIO PERMETTE 
INVECE " 

580 PRINT "DI CALCOLARE IL PRODOTTO RIGHE 
PER CO-" 

590 PRINT-LONNE DI DUE MATRICI DI ORDINE 
MASSIMO " 

60O PRINT"SEI." 

610 PAINT"-' DA RICORDARE CHE IL PRODOTT 
0 TRA DUE" 

620 PRINT "MATRICI E' POSSIBILE SOLO QIJAN 
DO QUESTE" 

630 PRINT "SONO QUADRATE DELLO STESSO ORD 
INE, OPPU-" 

640 PRINT "RE QUANDO IL NUMERO DI RIGHE D 
I UNA COR" 

650 PRINT"RISPONDE AL NUMERO DI COLONNE 


DELL'AL-" 

660 PRINT"TRA E VICEVERSA." 

670 PRINT"» SPER CONTINUARE BATTI UN 
TASTO" 

680 GETA* IFA$=""THEN680 
690 PRINT"! 

" : PRINT "il/, I . 


700 PRINT"»-' IMPORTANTE RICORDARSI NELL 
"ESECU-" 

710 PRINT "ZI ONE DEL PROGRAMMA DI METTERE 
SEMPRE " 

720 PRINT"UNA VIRGOLA DOPO AVER INSERITO 
OGNI NIJ-" 

730 PRINT"MERO ; QUESTO SIA PER IL CALCOL 
0 DEL DE-" 

740 PRINT "TERMINANTE SIA NEL CALCOLO DEL 
PRODOTTO" 

750 PRINT"» SPER CONTINUARE BATTI UN T 
ASTO" 

760 GETA*: IFA$=""THEN760 
770 IFA$O""THEN190 
780 : 

790 REM ******************************* 

791 REM * CALCOLO DETERMINANTE * 


792 REM ******************************* 

900 PRINT"!" 

910 PRINT" ,-- 


920 PRINT" 
4 I 

930 PRINT" 

940 PRINT" 
I I I—' I 
950 PRINT" 

L L | 

960 PRINT" 


I 4 


I t —I . I , h-, I—i—. I Y—, rs Y 

I I I h--• I K- ' I I I I I I I ,-H I 

I > '• •• L V > L L L L L L L *-■* L 


970 CLR 
980 : 

990 : 

1000 REM ****************************** 
1010 REM * INPUT DATI * 

1020 REM ****************************** 
J030 INPUT"WW .1 NUMERI DELLA l'RIGA SON 

0: X, v . z 

1040 INPUT"MM I NUMERI DELLA 2' RIGA SON 

0 : ", W, K • J 

1050 INPUT"»» I NUMERI DELLA 3'RIGA SON 

0 ";h,q.v 

1855 IFW=0ANDK=0ANDJ=0ANDH=0AHDQ=0ANDV=0 
ANDX=0ANDV=0ANDZ=0THEN900 

1060 REM ****************************** 

1061 REM * RICERCA DEL RANGO * 

1062 REM ****************************** 

1070 S= C X*K*V> + <W*Q*Z> + ( V*J*H>-<Z*K*H>-< 
V*V*W )- <X*Q*J > 

1080 IFS=0THEN1110 

1090 PRINT"!»» IL DETERMINANTE E" ; " S "I 
L RANGO E' 3WW" 

1100 GOTO1420 
1110 B= < X*K >-< V*H > 
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1130 IFEN0THEN1160 

1148 FRI NT •:!«« IL. RANGO E' 2 E IL DET.E 
/ ZEROMW" 

1150 GOTO 1420 
1160 C=<X*Q>-<V*G> 

1170 IFC=0THEN1190 
1180 GOTO1140 
1190 D=<W*Q)-<K#H> 

1200 IFD=0THEN1220 
1210 GOTO 1140 
1220 E=<X*,T>-<Z*U> 

1230 IFE=0THEN 1250 
1240 GOTO1140 
1250 F=Q«*V>-<Z*H> 

1260 IFF=0THEN1280 
1270 GOTO1140 
1280 G=<W*V>-<J*H> 

1290 IFG=0THEN131O 
1300 GOTO1140 
1310 I=<V*J>-<Z*K> 

1320 IFI=0THEN1340 
1330 GOTO1140 
1340 L=<V*V->-<Z*Q> 

1350 IFL=0THEN1370 
1360 GOTO1140 
1370 M=<K*V)-<JfcQ) 

1380 I FM=0THEN1400 
1 390 GOT0 1140 

140O PRINT Tltìtì IL RANGO ET IL DETERMINA 
NTE E " ZEROMW" 

1405 rem 

1406 REM * STAMPA RISULTATI * 

1407 REM *M*M++***++*M*********m*m 
1410 S=B 

1420 PR I NTTAB (14)'TT TAB< 1 6 >K, T AB• 2 1 ) V, T 
AB<26>Z; TRE<31>"l " 

1430 PRINTTAB< 14 > ' T " ;TAB< 31 > ' T " 

1 440 PR INTTABC14 > ' T "TAB <31 > “ I " 

1 450 PRINTTAB< 14> '‘ I *'; TAB <31 > ** I ** 

1460 PRINTTAB <14 ) "' I"; TAB < 31 V T " 

1470 PRINT"DETERMINANTE"; TAB<14) " I "; TAB< 
16 >W . TAB < 21)K,TAB <26> J;TAB < 3 1 >"I = ";S 
1480 FRINTTAB < 14) "I TAB <31) "I " 

1490 PRINTTAB <14 ) ' T "; TAB < 3 1 ) * T " 

1500 PRINTTAB(14)"I "; TABC31 ) "I" 

1510 PRINTTAB < 14 > * * I" ;TAB < 3 1> ' ’ I ' ' 

1520 PRINTTAB < 14 ) ' T ",TAB <16>H ;TAB<21> Q,T 
AB < 26)V;TAB < 3 1)"I '' 

1530 PRINT‘'.HftftW 5PER CONTINUARE BATT 

I UN TASTO" 

1540 GETfll IFA$= ' ' ' ’THEN 1540 
1550 IFA$O""THEN190 
1560 END 

1870 REM 

1871 REM # PRODOTTO RIGHE PER COLONNE * 

1872 REM ****************************** 
1890 A9Ji=l 

1900 PRINT "IT 

1920 PRINT" , - 

1930 PRINT" I I '4 4 

I 

1940 PRINT" I r- , I—-, r-, r—i <—s I I 

t —■. I 

1950 PRINT" I III I I I I I I I I 

I I I 

I960 PRINT" I III I I I I I I I I 


1970 PRINT" I 
w I 

1980 PRINT" I 
I 

1990 PRINT" *" 


h~ J 


L L 


1995 I FA9;-i= 1THEN2089 

1999 : REM 

2000 CLP : REM 4 INPUT DATI 1 MATRICE * 

2001 ^ REM ************************** 
2010 PRINT "PRIMA MATRICE" 


2020 INPUT'T NUM.DELLA 1" 

RIGA 

SONO : 

"i A. 

B ■ C .• D , E, F GOSUB2072 

2030 INPUT’T NUM.DELLA 2 
H-I•L■ M •N GOSUB2074 

RI GA 

SONO ^ 

";g, 

2040 INPUT'T NUM.DELLA 3' 
R.QjR/S J : GOSUB2076 

RI GA 

SONO ; 

";o, 

2050 INPUT'T NUM.DELLA 4' 
'•/ > Z, W, K , V : GOSUB2078 

RIGA 

SONO ^ 

";u, 

2060 INPUT'T NUM.DELLA 5' 
A1, B1, C1, D1, E1 :GOSUB2080 

RIGA 

SONO : 

";.J, 

2065 INPUT'T NUM.DELLA 6 y 
,G1,H1, 11.. L1. M1 : GOT02082 

RIGA 

SONO : 

u- 


2067 REM ****************************** 

2068 REM * STAMPA PROVVISORIA DATI * 

2069 REM ****************************** 

2072 PR I NTTAB < 10 > ; * I " ' ; A ; B C ; D ; E ; F ; 

" I TTTTTn" : RETURN 

2074 pr i NTTAB < 1 e ) ; * 'vmum I " ; GH, I ; L ; M ; N ; 

' * I TTTTTTT * : RETURN 

2076 prInttab< 1 0 > ; ' ‘WtìcftMtì i o; P, q; R; s; T ; 
"I TTTTTTT ■ ■ RETURN 

2078 PR I NTTAB< 1 0 ) * 'tfaMsMtìI ", U; V , Z; W ; K ; V; 
" I .TTTTTn" : RETURN 

2080 PRINTTAB<10 ); ' 'MMMM I ''; J ; A1 ; B1 ; CI ; D 
1 ; E1 ;*'I TTTTTn" : RETURN 
2082 PRINTTAB <1 0>; * 'WttBfcWM I".FI ; G1 ; H1 ; Il ; 
LI; Mi ;"l " 

2033 PRINTTAB<9> ; INPUT "W VUOI CAMBIARE C 
S/N]".:B$ 

2084 IFB$="N"THEN1890 


2035 IFB$="S"THEN1900 

2086 REM ****************************** 

2087 REM * INPUT DATI 2' MATRICE * 

20 8 8 REM ******************** * ********* 

2089 PRINT"SECONDA MATRICE" 

2090 INPUT * * 1 1 NUM. DELLA 1 - RIGA SONO : "A2 
,B2,C2,D2,E2,F2:G0SUB2142 

2100 INPUT "I NUM. DELLA 2' RIGA S0N0:";fi2 

, H2,I 2,L2, M2 , N2 ; G0SUB2144 

2110 INPUT'T NUM.DELLA 3' RIGA SONO:".02 

, P2, Q2, R2 ,32, T2 ■ G0SUB2146 

2 120 INPUT‘ 1 T NUM.DELLA 4' RIGA SONO :";112 

, V2 , Z2 ■ W2, K2 , V2 • GOSIIB21 48 

2130 INPUT'T NUM. DELLA 5"‘ RIGA SONO : " ; J2 

.A3,B3,C3,D3,E? G0SUB2150 


2135 INPUT"I NUM. DELLA 6' RIGA SUNu • ,r.s 
/G3,H3,I3,L3,M3■G0T02151 

2137 REM ****************************** 

2138 REM * STAMPA PROVVISORIA DATI * 

2139 REM ****************************** 

2142 PRINTTAB'T0> ; ";A2; B2; C2; D2; 


E2 ; F2; " I TTTTTn" RETURN 


2144 PR I NTTAB < 10 >; ' ' tìtìtitìaM I ", 02, H2, J 2 ; L2 ; 
M2, N2; ” I TTTTTn" : RETURN 
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2 146 PRI NTTflB < 1 0 > ; 1 "bWWBMWI I ' ’ ; 02 : P2 :02 : R2 ; 
82; T2; "I TTTTTT1" RETURN 
2 1 48 PR I NTTflB < IO-,'' HrldBMfl I ' ’ ; U2 ; V2; Z2 ; W2 ; 
K'2 ; V2; ’T rTTTTTT 1 : RETURN 

2150 PP T NTTflB <. 10 > ; * ‘HKDffllMM I * * ; J2 ; A3 ; B3 ; C3 ; 
D3; E3; “I TTTTTTT" : RETURN 

2151 PRINTTflBC lfl> ; F3:03 ; H3; 13: 

L3;ri3;"i " 

2 1 52 PR 1 NTTflB(10) INPUT*“sWUO I CflMB IARE r 
S/N1 ";B t 

2153 I FBT = ' ’S ' ’THEN 1 890 

2154 IFBf= '*N THEN2158 

2155 REM ****************************** 

2 156 REM * CALCOLO DEL PRODOTTO R.X 0.* 

2157 REM ****************************** 

2 1 58 X 1 =A*fi2+B*G2+C*02+D*U2+E*J2+F*F3 
2 1 60 X2=fl*B2+B*H2+C*P2+D*:'v , 2+E*fl3+F*G3 
2 170 X3~fl*C2+B* 12+C*Q2+D*Z2+E*B3+F*H3 
2 1 80 X4 =A * D 2 +B * L ?+C ♦ R ?+D*W2+E*C3 +F* 13 
2 190 X5=fì*E2+B*M2+C*S2+B*K2+E*D3+F*L3 
2200 X6=fi*F2+B*N2+C*T2+D*V2+E*E3+F*M3 
22 1 0 K5=G*fì2+H*G2 + 1 *G2+L*IJ2+M* J 2+H*F3 
2220 K6=G*B2+H*H2+I *P2 +L*V2+M*A3+N*G3 
2230 K7=G*C2+H*I2+I*G2+L*Z2+M*B3+N*H3 
2240 K8=G*D2+H*L2+ 1*R2+L *W2+M*C3+N# 13 
2250 K9=G*E2+H*M2+ I *82+L*K2+M*D3+N*L3 
2260 F 0=G*F 2 +H*M 2 + T *T2+L*V2+M*E3+N*M3 
2270 G!5=0*fl2+P*G2+P*O2+R*U2+S*J2+T*F3 
2280 Q 6=0 * B 2 +F' * H2+ 0 * P 2 + R * V2 + S * A 3 + T * G3 
2290 G7=0*C2+P* I 2+Q*02+R*Z2+S*B3+T*H3 
2300 Q8=0* P2+P*l 2+P*R2+P*U2 +S*C3+T* 13 
2310 Q9=0*E2+P*M2+Q*S3+R*I 2+S*D3+T*l 3 
2320 Q0=O*F2+P*N2+Q*T2+R*V2+S*E3+T*M3 
2330 Z 5=U ♦ A2 + V * G2 +.2*02+U * U2 + K * T2 + V *: F3 
2340 Z6=U#B2+V#H2+Z#P2+W#V2+K#A3+V*G3 
2350 Z7--I l*C2+V* 1 2+r*Q2+W*Z2+ K*B3+V*H3 
2360 Z8=l i*B2+V*L2+Z*R2+W*U2+K*C3+V* 18 
2370 /• 9- U*E2+V*M2+Z*S2+W*K2+K*D3+V*L 3 
.2380 Z0dJ*F2+V*N2+Z*T2+N*V2+K*E3+V*M3 
2390 V5= J*A2+fl 1 *G2+£ 1 *02+0.1 *U2+D t * J2+F 1 * 
F3 

2400 V6 T *B2 < A1 *H2*F 1 il- 2 +i [ *y?+P t *A3+E 1 * 
63 

2410 V?=.T*C2+A 1 * 1 2+B 1 *Q2+C 1 *Z2+D 1 *E3+E 1 * 
H3 

2420 V8=J*D2+A 1*L2+B1 *R2+C 1 *U2+D1*C3+E 1 * 
13 

2430 V9=J*F2+A1*M2+B 1*32+01 *K2+D1*D3+El♦ 
L3 


2440 V0--J*F2+A 1+N2+B 1 *T2+ C 1 *V2+D 1 *E3+E 1 * 
M3 

2450 T5=F1*A2+G1*G2+H1 *02+11*U2+L1 *J2+M1 
*F3 

2460 T6=F 1*B2+G1 *H2+H1 *P2+ I1 *V2+L1*A3+M1 

*G3 

2470 T7-F1 *0 2+G 1 * 1 2+H 1 *Q2+ 1 1*Z2+L 1 *B3+M1 
*H3 • 

2430 T8=F 1*D2+G 1*L2+H 1 *R2+I1*W2+L1*C3+M1 
*13 

2490 T9=FI *E2+G 1 *M2+H 1 *32+ I1 *K2+I 1*D3+M 1 
*L3 

2500 T0=F 1 *F2+G 1*N2+H 1*T2+ T 1 * V2+L1 *E3+M1 
*M3 

2501 REM ****************************** 

2502 REM * STAMPA MATRICE PRODOTTO * 

2503 REM ****************************** 
2510 PR I NT ‘ 73' ' 

2520 PRINT ,, >***ftWWsa-QUESTA E LA MATRICE 
PRODOTTO- ■WpMcM" 

2530 PR INTTflB < 1>"ITABC2>X 1 ; TAB<8>X2; TA 

B < 14 >X3, TAB < 20>X4;T AB <26 > X5;T AB C 32 >X6;TA 
B<38)"I" 

2540 PR I NTTAB<1 > " I 11 TAB< 2 >K5 ; TAB < 8 > K'6 TA 
B < 14 >K7 , TAB v 20 > K8TAB •: 26 > K9 ; TAB< 32 >K0 ; T A 
B(38) ,, l n 

2550 PRI NTTAB<1 > '' I *’ TABC 2 >05 TAB< 8 > 06; TA 
B 1 4 > 07 ; TAB C20 > 08 ; TAB < 26 > 09 : TAB < 32 •' 09 ; TA 
B <38 > ’ ' I‘ ' 

2560 PRI NTTAB< 1 > * I " : TftB<2>Z5; TAB<8)Z6.: TA 
B < 14 > Z7 ; TABC 20 > Z8 ;TAB< 26 > Z9 : TAB(32 >Z0 i TA 
B<38)“I " 

2570 PR I NTTAB< 1 > ’' I 1 ‘ : TAB 2 > V5 : TAB < 8 ) V6 ■ TA 
B < 1 4 > V7. TAB <20'> V8 ; TAB ( 26 > V9 ; TAB< 32 ') VO ; TA 
B(38) M r 

2580 PR I NTTAB IVI"; TAB < 2 >T5 ; TAB < 8 > T6 : TA 
BO 4>T7 ; TAB C 20 >T8 TAB C 26 > T9; TAB < 32 > T0 ; TA 
B<38>“I" 

2590 PR INTTABC5>; "WHWMSFER CONTINUARE Bfl 
TTI UN TASTO" 

2600 GETAT : TFfl$=*"THEN2600 
2610 I FATO ""THEN 190 

2620 : 

2997 REM ***************************** 
2993 REM *LINFA DI FINF UTILIZZAZIONE* 

2999 REM ***************************** 

3000 PR INT "FH" ■ POKE53280.14 P0KE5328 1,6 
READY. 


I 1 

F- ^ 

da 

f O 

s i 

tr 

r «ì ■==* 

tr i 

I 1 

F- t~ 

d X 

o r 

1 

•==-1- r~“ 




T R U 

s. t: =« .r» 

vaLido 

F* r e^se-. 
-a. I e . 


anima, e- x i ì-» 9rado di 
:=-t-r-*.y ri z x j> che sono t«i-~-■=- v 

3 »_•. i di s. •==- *9 u. i 


rio M I 

co nceP it o i n modo 
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VERTICALI 

2)Ripido,scosceso. 3)Centro Informativo. 4)Ne* 
ieri,ne* domani. 5)Ente di Stato per la 
radiodiffusione. 6)E' formato da 8 bit. 7)Universal 
Products. 8 )Oynamic Limiter. lDQuella attuale e' 
dominata dai computers. 14) Istruì ione di 
immissione... 1?>I1 meglio...in Inglese. 18>Un 
famoso film di guerra e computer. 19)Casua 1 mente.. . 
22)Se... 23)Insleme al joysticK. 25)11 voto della 
sufficienza. 28)Cartel1 ina. . .elettronica. 29)Media 
Center Organization. 30>Energy Saving System. 
31)Media Informatica Superiore. 33)Infrarosso 
(sigla). 36)Esercito Italiano. 


COLLAGECOMPUTER 


ORIZZONTALI 
1)Primato... 6) Un ita' 
di misura per 1 a 
velocita* di 
trasmissione dei dati. 

9) Ins ieme alla 
co 1 onna. .. 

10) Print... In alta 
risoluzione. 1 1 )Un film 
di S.Spielberg. 

12) General Instruments. 

13) Unita* fondamentale 
nell'informatica. 
15)Roma. . .senza ma. 

18 )Rete di 
comun icaz ione . 

20 Organizzazione 
autonoma. 21)Scaglia di 
Silicio. 24)...Stampa. 
26 )Cond i z ione di errore 
in inglese. 

27)Escursionisti 
Esteri. 28)Nota 
mus icale. 

29)Modulatore-demodulat 
ore . 

32) 0imensionamento. 

33) Circuito integrato. 

34) Tecno1ogia di 
produzione di circuiti 
integrat i . 

35) Diminuitivo di 
Leone. 37)Preslede al 
funzionamento del 
computer. 38) Istituto 
Ricostruz ione 
Industriale. 


Con i pezzi di quali computer 

foto 

1 ). 

3). 

5). 


e' stato ricavato quello della 
sotto ? 

2 ). 

4 ). 

6). 


Le 

soluzioni 

nel 

prossimo 
n u me r o . 
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APOLLO 16 

di MASSIMO TRUSCELLI 

A ventitré anni da quella memorabile notte di luglio, 
oggi la luna ha perso quel suo fascino misterioso 
legato all’esplorazione dello spazio. 

Per tutti coloro che almeno una volta hanno sognato 
di essere uno dei tre famosi astronauti, Armstrong, 
Aldrin e Collins, LIST propone un gioco semplice, ma 
non troppo, che riproduce la situazione in cui si trova 
un pilota che si deve preparare ad allunare. 

La versione presentata gira sul Commodore 16 e non 
fa uso della grafica ad alta risoluzione a causa dei 
noti inconvenienti dovuti al calo di memoria RAM 
disponibile dall’utente. Con poche modifiche può 
però essere facilmente adattato anche al fratello 


maggiore Commodore 64. 

La particolarità o difficoltà del gioco consiste nel 
graduare con l’aiuto dei razzi frenanti, la velocità di 
discesa sul satellite. La forza di spinta dei razzi può 
essere facilmente controllata usando i tasti da 1 a 9; 

nel caso la velocità di discesa fosse troppo bassa, si 
può invertire l’effetto dei razzi agendo sulla spinta 
degli stessi e ponendo il segno - (meno) davanti al 
grado di spinta. 

I tentativi falliti e le situazioni difficili, sono illustrate 
da brevi frasette ironiche sulla probabile breve 
esperienza astronautica di chi si cimenta nel gioco. 


STRUTTURA DEL PROGRAMMA 

10-190 Presentazione del programma, Viene 
designato con i simboli grafici della 
tastiera, il modulo lunare, lo sfondo 
stellato, la luna e successivamente la 
scritta APOLLO 16 Lunar Landing. 
Premendo un tasto si passa alla fase 
successiva. 

200-250 Visualizzazione della scritta 

«Benevenuto a bordo dell’Apollo 16» 
e richiesta per una eventuale 
visualizzazione delle istruzioni di 
gioco. 

260-430 Visualizzazione delle istruzioni. 

Avviene in due schermate ed ogni 
volta per continuare bisogna premere 
un tasto. 

440-510 Cambio schermo, segnale acustico, 
visualizzazione della scritta 
lampeggiante «Attenzione» e conto 
alla rovescia. Alla fine del conteggio 
alla rovescia viene visualizzata una 
scritta lampeggiante alla cui 
comparsa bisogna schiacciare un 
tasto. 

520-660 Visualizzazione della cabina di 

pilotaggio e dei dati iniziali riguardanti 
la velocità, la quantità di carburante e 
l’altezza dal suolo lunare. 

670-880 Primo blocco di istruzióni riguardanti i 
consumi, la velolità ed i calcoli relativi 
alla discesa. In base alla variabile TI 


890-1010 


1020-1200 

1210-1230 


1240-1550 


1560-1620 

1630-1690 


1700-1770 

1780-1830 

1840-1880 


viene stabilito un eventuale salto alle 
routines di visualizzazione contenute 
dalla linea 890 e successive. 
Visualizzazione di varie scritte 
corrispondenti a diverse situazioni 
che si verificano all'Interno 
dell’astronave e nella sala comando a 
terra. 

Secondo gruppo di calcoli inerenti 
alla discesa. In questo gruppo di 
istruzioni il giocatore introduce il 
valore riferito alla spinta dei razzi. 

Nel caso siano passati più di 5 
secondi dall’inizio del gioco e non sia 
stato inserito nessun dato, 
l’astronave rimane senza controllo 
per 5 sec. 

Terzo blocco di calcoli riguardanti la 
discesa dell’astronave. In tali 
istruzioni sono contenuti anche i salti 
alle routines per i vari tipi di allunaggio 
e la visualizzazione dei dati 
riguardanti carburante, altezza e 
velocità. 

Visualizzazione riguardante la riuscita 
dell’allunaggio. 

Visualizzazione dei dati riguardanti la 
formazione di un nuovo cratere sulla 
luna... 

Esaurimento del carburante. 

Spinta eccessiva dei razzi. 

Richiesta per una eventuale 
ripetizione del gioco. 


10 COLOR0 j 1 i 1 : C0L0R4> 1 * 1 •* PRINT"ffl" 

20 PRINT"3"!F0RV-1T0100 : X-1NT < RND <1)#30) + 1 : V»INT C RND <1> *20) +1 :POKE3072+X+'V*33,46 
:NEXTV 
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^ •' : COLORO,1,1 = C0L0R4, i , 1 

r 


40 PRINT" LUNRR 
50 PRINT" 

60 PRINT" LRND 1 NO 
70 PRINT" 

60 PRINT" 

00 PRINT" 

100 PRINT" 

110 PRINT" 

120 PRINT" 

130 PRINT" 

140 PRiNT"immr pi mi mi mi mi 

150 print" scapai PI PI PI PI PI PI PPPI PPPI PI PPPPI PPPI " 

I 60 PRiNT 'kmai pi wì la pi pi pipi pppi pi ppppi mi 

170 PRINT 'nSPPPI PI PI PPPI PI PI PPPI PPPI PI PPPPI PPPI PI " 

180 PRINT"3flPPPI PI PI PPPI PI PI PI PPPI PPI 

190 PRINT"kH":FORX-0TO40:POKE4032+X,160 :NEXTX:GETXP:IFX$*""THEN190 
200 TI »=" 000000 ":PRI NT "mWBENVENUTO fi BORDO DELL'APOLLO 16..." 

210 PRINT"MOSE DESIDERI CONOSCERE COSA TI ASPETTA PREMI UNO DEI TASTI 


INDICATI 


TROVI CON IL TUO MODULO LUNAR 

SUPERFICIE LUNARE E TI AVVICIN 

CON L'AIUTO DI RAZZI FRENANTI" 
PUOI INOLTRE GRADUARE L'INTENS 

TIENI CONTO CHE LA SPINTA NON" 
SCELTA." 


220 PRINT" S/N" 

230 GETX$:IFX$*"S"THEN260 
240 IFX6*"N"THEN440 
250 GOTO230 

260 PRINT"3IL PROGRAMMA SIMULA UN ALLUNAGGIO •' TI 
E" 

270 PRINT"AD UN'ALTEZZA DI 20000 METRI SULLA 
I AD" 

280 PRINT"ESSA AD UNA VELOCITA' DI 1630 M/SEC. 

290 PRINT"TALE VELOCITA' PUÒ' ESSERE DIMINUITA. 

ITA'" 

300 PRINT"DELLA SPINTA DI TALI RAZZI DA 1 A 9. 

310 PRINT"DIPENDE LINEARMENTE DALL'INTENSITÀ' 

320 GETX$*IFX$=""THEN320 

330 PRINT"[UTILIZZI UNA MAGGIORE 0 MINORE QUANTITÀ'DI CARBURANTE,IN RAPPORTO CON 

340 PRINT"L'INTENSITÀ' DI SPINTA.SE VUOI INVERTIRELA SPINTA, PERCHE' L'ASTRONAVE 
VA" 

350 PRINT"TROPPO LENTAMENTE,DEVI DARE L'INTENSITÀ'DI SPINTA CON SEGNO NEGATIVO" 
360 PRINT"ES.: C-7). SE VUOI VIAGGIARE SENZA SPINTA, USA 0. IL MODULO IN TA 

L" 

370 PRINT"CASO PROCEDE SOTTO L'INFLUSSO DELLA SOLAATTRAZIONE LUNARE, PARI R:" 

380 PRINT"1.5 M/SEC. DURANTE IL GIOCO VERRANNO 
I" 

390 PRINT"L'ALTEZZA IN M, LA VELOCITA' IN M/SEC. 

400 PRINT"HAI TEMPO 5 SECONDI PER EFFETTUARE LA 
410 PRINT"SPINTA. LA MISSIONE FALLISCE SE TOCCHI 

A ' " 

420 PRINT"SUPERIORE A 3 M/SEC." 

430 GETX$: IFX*=""THEN430 
440 V0L8: SOUND1,250,60•PRINT"IH" 

450 PRI NT " I ONE 

460 PRINT"MWWKlk - DISCESA SULLA LUNA 


VISUALIZZATI I VALORI INDICANT 

E IL CARBURANTE IN KG." 

SCELTA DELL'INTENSITÀ' DI" 

IL SUOLO LUNARE AD UNA VELOCIT 


300001 ioni JOUOOQ 


470 F0RV=5T01STEP-1 ; PRI NT " mHMSOTr=X- " ; V : FORC= 1 TO250 NEXTC , V 
480 T1=V : V=V1 : V1=V2 : V2=0 PRINT" SMI 
490 PRINT" BEVI UN SORSO DI CORDIALE PER FARTI 
500 PRINT : PRINT : PRINT"mPPPPPPPPPPPPinCCENSIONE!" 

510 GETX$:iFX$=""THEN510 
520 PRINT"3an 
530 PRINT"SO 
540 PRINT" Sn 
550 PRINT" Sn 
560 PRINT" SO 
570 PRINT" SO 
580 PRINT" Sn 
590 PRINT"sn 


FORZA" 
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600 fri NT" sn se- j n 

610 FRINT" sn 

620 PRINT "SCI "; 

630 FORX=0T039 ; FRINT" Zk. "; NEXTX : F0RX=1T04: FRINT" "SPC(38>"aL ";=NEXTX 
640 FORX=0TO39 : PRINT"Sk. "i : NEXTX 

650 PRI NT " SNELOCI TA ' fìCARBURANTE " 

660 PRINT"VPPS 20000 1630 4000" 

670 M3=600 

680 P=0 

690 S0=40000 

700 M0=200 

710 B0=4000 

720 B=B0 

730 G0=9.81 

740 01*1.5 

750 V3=1630 

760 H3=20000 

770 1=161 

780 T1=T1+1 

790 IFP>OTHEN820 

800 V2=V1-V 

810 GOTO840 

820 V2=0 

830 P=P-1 

840 IFT1=7THEN920 

850 IFT1=15THEN970 

860 IFT1=25THEN890 

870 IFT1=35THEN940 

880 GOTO1010 

390 PR I NT " ■_R NRSfl VORREBBE SAPERE SE MANCA MOLTO " 

900 PRINT"«IIL PERSONALE VORREBBE ANDARE A CASA 
910 GOTO 1010 

920 PRINT"TUA TUTA E'' SALTATO UN FERMAGLIO " 

930 GOTO1010 

940 PRI NT" KLI > AFFRETTATI / IL CONTROLLORE CAPO SI " 


950 PRINT"«E' APPISOLATO... 
960 GOTO1010 
970 PRINT"i 


CONGRATULAZIONI! IL CRATERE CHE 


980 FRI NT" «FORMERÀ' PER L'URTO PORTERÀ' IL TUO " 

990 PRINT "«HOME.. . " 

1000 PR I NT " Il 

1010 PRINT"" ; INT<H3), INT<V3>,INT < B) 
1020 IFP>0THEN1250 
1030 IFVM0THEN1210 
1040 Z5=CLK/Z> 

1050 Z6=Z5 

1060 INPUT " ^lPl*!I^i!Wi!WlilBItìW!!lPW• C " ; N 

1070 V1=CLK < Z ) 

1080 Z7=V1 


1090 GOSUB1150 
1100 V=Z4 
1110 Z5=V1 


1120 GOSUB1150 
1130 V1=Z4 


1140 GOTO1250 

1150 Z1=INT(Z5X10000) 

1160 Z2=INT<Z5/100) 

1170 Z2=Z2-Z1*100 
1180 Z3=Z5-Z1*10000-Z2*100 


SI 


n 


1190 Z4=Z3+Z2*60+Z1*3600 
1200 RETURN 

1210 PRINT"• 11L TEMPO PER RIFLETTERE E' TRASCORSO " 
1220 PRINT"«IIL MODULO RIMARRA ' PER 5 SEC. SENZA " 

1230 PRINT"«CONTROLLO... 

1240 P=5 
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1250 IFN>9THEN1780 
1260 N1=ABS(N) 

1270 IFNO0THEN1310 
1280 MI=0 
1290 S=0 
1300 GOTO1330 
1310 S=S0 f(N1 /9 > 

1320 M1=8/<I*G0 ) 

1330 M2=M3-M1 

1340 M=(M2+M3.V2 

1350 R=S/M 

1360 IFN>=0THEN1390 

1370 V2=V3+G1+R 

1380 GOTO1400 

1390 V2=V3+G1-R 

1400 V= (. V2+V3 > /2 

1410 H=H3-V 

1420 H3=H 

1430 V3=V2 

1440 M3=M2 

1450 B=B-M1*G0 

1460 IFH3<=0THEM1540 

1470 IFBOOTHEN1700 

1480 IFH3>30THEN780 

1490 IFCO1THEN780 

1500 PRI NT " flfltìfltìfltttìflfltìflflfl® PI 

1510 FRI NT " iltìtìfl«tìflflflfltìflflflfl«p| " ; I NT <H3>, I NT (V3>, I NT < E > 

1520 C=C+1 
1530 GOTO780 
1540 IFV3O3THEN1560 
1550 GOTO1630 
1560 PRINT'^a 

1570 FRINTALLUNAGGIQ PERFETTO!! !" 

1580 PRINT"Mfl?Xil TEMPO : ", TI ; "SEC. " 

1590 PRINT'Vfl CARBURANTE CONSUMATO •".EU-B,"KG" 

1600 PRINT" W VELOCITA ' : « ;V3;"M/SEC" 

1610 PR I NT " flflflrk. 

1620 GOTO1840 

1630 FQRV=1TO100:X=INT<RND<1>*39> +1=V=INT<RND(1)*21) + 1:POKE3094+X+V*39,160 
1640 PGKE2071+X+V*39,1 NEXTV 
1650 SOUND1,700,150■PRINT"3" ; 

1660 PRINT"W«i!lPlfil!»!llItìi!ttIi!l('IiI«l®^Ì»»Pi^UOVO CRATERE SULLA LUNA..." 

1670 PRINT" Wlk. PROFONDITÀ'' •* ";V3/12; "M" 

1680 PRINT "m VELOCITA-' D'URTO : ",V3; "M/SEC. " 

1690 PRINT"flfl" : GOTO1840 
1700 V4=< 2*G1*H3 > T.5 

1710 FORV= 1 TO 100 • X= I NT < RND 1 ) *39 >+1 • V= I NT < RND < 1 > *21 > +1 POKE3094+X+V*39,160 
1720 POKE2071+X+V*39 , 1 : NEXTV 
1730 SOUND1,700,150 : PRINT " 3" , 

1740 PRINT" flflflflflflflflflflflfllJPPPPPII L CARBURANTE E' FINITO!..." 

1750 PRINT" fluii VELOCITA" D"URTO :";V4;"M/SEC" 

1760 PRINT".fltìtflIL PRESIDENTE DELLA NASA CONSOLERÀ" LA TUA VEDOVA!!!... ■)»*#" 
1770 GOTO1840 

1780 FORV=1TO100• X= INT <RND <1>*39>+l V=INT <RND <1> *21> +1 :POKE3094+X+V*39,160 
1790 P0KE2071 +X+V*39 .■ 1 NEXTV 
1800 SOUND1,700,150 :PRINT"3" 

1810 FORC-1TO13: COLORO,C,5 :FORT=1T025 : NEXTT,C 

1820 PRINT" riiflflflflflflflilPPPPPPPPPPPPPII L MOTORE E" ESPLOSO!!!" 

1830 PRINT"*PPPPLA SPINTA E" STATA ECCESSIVA ! M M •'GOTO 1760 
1840 PRINT".flv'UOI GIOCARE ANCORA ? <S/N>" 

1850 GETX$•IFX$=""THEN1850 
1860 IFX$="S"THENRUN 
1870 IFX$="N"THENPRINT"IT END 
1880 GOTO1858 

READ7. __ _ _ 
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MSX SPRITE 

di FABRIZIO RUSSO 

Con l’awento dell’home computer la magica 
atmosfera dei coloratissimi video-games è entrata 
anche nella nostra casa. L’animarsi del piccolo omino 
e della navicella spaziale, è ormai routine sul 
teleschermo del nostro televisore, facendoci 
dimenticare per un attimo ogni problema che ci assilla 
quotidianamente. Anche se spesso bistrattati da quelli 
che vedono nel computer una macchina infallibile ed 
instancabile destinata solo a scopi «seri» o 
prettamente professionali, i video-games portano 
l’uomo ad interagire più direttamente o 
fantasiosamente con il computer che con altre 
applicazioni strettamente lavorative. Ma anche in 
questi campi, il movimento di una figura sullo schermo 
è diventato sempre più ricorrente, accompagnato 
dall’evento di tecniche, istruzioni e computers, più 
moderni e perfezionati. 

Infatti lo sprite (è questo il nome della figura mobile in 
alta risoluzione) è incorporato nel firm-ware della 
grande maggioranza degli elaboratori attuali non 
facendoci più arrovellare per cercare di creare 
animazioni attraverso lunghe e laboriose routines. 

Nel caso dello standard MSX, che incontrerà 
sicuramente un sicuro successo per la sua 
compatibilità tra le diverse marche di computer e per la 
sua completezza di periferiche ed istruzioni integrate 
nello stesso, non poteva certo mancare la grafica a 
sprites coadiuvata da una semplice gestione della 
stessa, che per fortuna, non necessita dell’uso del 
sempre oscuro e complicatissimo linguaggio 
macchina. 

Gli sprites possibili nell’MSX sono divisi in due 
categorie: 

1) Sprites 8x8 - cioè definibili attraverso matrici di 8x8 
pixels o punti dello schermo (della dimensione perciò 
di un carattere in screen 1). 

2) Sprites 16x16 - cioè definibili con matrici di 16x16 
pixels (della dimensione perciò di 4 caratteri in screen 
1 disposti in quadrato). 

Gli sprites sono però visualizzabili solo in screen 1, 
screen 2 e screen 3. Sia quelli 8x8 che quelli 16x16, 
sono ingrandibili in dimensione raddoppiano la propria 
risoluzione con la sostituzione del secondo parametro 
nelle instruzioni screen seguendo il seguente schema: 
SCREEN n.1 sprites 8x8 al naturale 

SCREEN n.2 sprites 8x8 raddoppiato 

SCREEN n.3 sprites 16 x 16 al naturale 

SCREEN n.4 sprites 16x16 raddoppiato 

Le istruzioni che gestiscono gli sprites nei programmi 
BASIC, sono sei, e cioè: PUT SPRITE, SPRITES, 
SPRITE ON, SPRITE OFF, SPRITE STOP, ON SPRITE 
GOSUB. 

Le prime due istruzioni servono rispettivamente a 
visualizzare sugli schermi sprite e a definire la forma 
mentre le altre 4 gestiscono la sovrapposizione tra 


QUESTO PROGRAMMA È DISPONIBILE SU CASSETTA 
PRESSO LA REDAZIONE. 

PER LE ISTRUZIONI DI ACQUISTO CONSULTARE LA PAGINA 
DI APERTURA DELLA SEZIONE SOFTWARE 



figure di diversi schemi. 

Esistono ben 32 schermi sprite (da 0 a 31) che 
possono contenere un solo sprite ciascuno con 
priorità di sovrapposizione dal numero più basso al più 
alto. 

Il numero degli sprites definibili dall’utente è di 256 
figure se 8x8 o da 64 figure se 16x16, mentre non è 
possibile visualizzare più di 4 sprites sulla stessa riga 
orizzontale o 32 insieme sullo schermo. 

Il programma proposto su questo numero di LIST, 
potrà aiutarvi a definire le figure che volete introdurre 
nei vostri programmi o caso mai a visualizzare quelle di 
altri trascrivendo i valori delle rispettive istruzioni DATA 
in decimale. 

Viene perciò disegnata, dopo la scelta del tipo di 
sprite, 8x8 oppure 16x16, una griglia quadrettata che 
si dovrà riempire muovendo, attraverso i tasti cursore, 
un quadratino. 

C’è una serie di tasti per il disegno dello sprite. Sopra 
la griglia appaiono 5 rettangoli colorati che 
rappresentano i tasti funzione da 1 a 5 del vostro MSX 
e che servono a cambiare il modo di funzionamento 
del cursore. 

Premendo il primo da sinistra, il cursore può muoversi 
sulla griglia senza modificare niente in essa; premendo 
invece il secondo, si cancella ogni quadretto occupato 
dal cursore, mentre premendo il terzo lo si riempie. Il 
quarto tasto funzione, cancella tutti i quadratini 
riempiti, ed il quinto termina il lavoro. 

Se si agisce su quest’ultimo, il programma va a 
calcolare i valori da immettere nell’istruzione DATA 
visualizzando uno schermo di come scrivere le linee 
che servono a definire lo sprite. 

Oltre a questi ci sono altri 4 tasti utili, e cioè: 

«c» riempie la colonna dove si trova il cursore 
«r» riempie la riga dove si trova il cursore 
«space» cancella il quadretto dove si trova il cursore 
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«return» riempie il quadretto dove si trova il cursore 
In un altro quadratino colorato sotto la griglia viene di 
volta in volta visualizzato lo sprite che state 
disegnando nelle sue dimensioni naturali. 

Per evitare di rallentare troppo il programma, lo sprite 
qui visualizzato viene modificato e sostituto solo dopo 


10 REM AAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


20 REM M M 
30 REM M M 
40 REM M MSX SPRITE M 
50 REM M M 
60 REM M Di Fabrizio Russo M 
70 REM M M 
80 REM M msx list-1985 msx M 


90 REM AAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
100 DIMA(16,16),D(32) 

110 C0L0R8,14,14 

120 0PEN"GRPi"AS1 

130 SCREEN2,,0 

140 LINE(0,0)-(255,191),,B 

150 G0SUB610 

160 G0SUB750 

170 G0SUB1100 

180 G0SUB1220 

190 I*=INKEY* 

200 IFI*=""0RI*< >" 1 " ANDI$< > "2"THEN190 

210 IFI*="1"THENM=8:G0SUB2700:G0T0290:E 

LSEM=32:G0SUB2700: G0TQ220 

220 SCREEN2,2,0 

230 COLORI,14,14 

240 CLS 

250 S*2: G*2: N“14iGQT0310 

260 REM P=caoBBB*s3BBaa»Baasa3Ba* 

270 REM GRIGLIA SPRITES 

280 REM =============»*=*«==»*■« 

290 C0L0R15,10,10 
300 SCREEN2:N=10iS“1:G*0 
310 G0SUB2310 
320 F0RT»0T04 

330 LINE(8+T*50,4)-(46+T*50,19) , T+l , BF 
340 NEXT 

350 LINE ( 0,0) — (255,191 ) , , B 
360 LINE ( 63,32)- ( 191,160 ) ,,B 
370 LINE(114,163)-(140,189),14-G,BF 
380 F0RT“1TQ7+(G*4) 

390 LINE(T*(16/S)+63,32)-(T*(16/S)+63,1 
59) 

400 LINE(63,T*(16/S)+32)-(191,T* ( 16/S)+ 
32) 

410 NEXT 

420 PSET(10,22),N 

430 PRINT#1,"NEUT. CANC. RIEM. DEL. 
OK. " 

440 PSET(5,165),6:PRINT#1," * ' =CAN.QUAD 

■ 

450 PSET(5,180),6:PRINT#1," ' RET‘«RIE.QU 
A. " 

460 PSET(150,165),6sPRINT#l, " *R*-RIE.RI 
GA" 

470 PSET(150,180),6:PRINT#1, " 'C‘=RIE.C0 

L. " 

480 A-67-G: B-36-G: C=16/S: Al-Ai B1=B: RIG=» 

0iC0L»0tFLAG-0 

490 IFMOOTHENRETURN 


un breve periodo, in cui non sia stato premuto alcun 
tasto, modificabile in durata variando il valore 200 che 
appare nella riga 1910. 

L’inizio del programma è accompagnato da un 
simpatico boogie-woogie e tutte le subroutines sono 
specificate nel listato. 


500 G0SUB1850 
510 TIME-0 
520 G0SUB1560 
530 G0SUB1390 
540 G0SUB1900 
550 G0SUB1630 

560 IFFLAG-4THENG0SUB1840iG0SUB2010iGOS 
UB2440: CLEARs 0PEN"GRP:"AS#1:DIMA(16,16) 

,D(32): G0T0180 
570 GQT0520 
580 REM 

590 REM SCRITTA "MSX" 

600 REM ———-----——™— 

610 PSET(40,10) 

620 DRAW"S4R15M65,30M75,10R15M110,64R40 

II 

630 CIRCLE(150,59),5,,3/2*3.14iCIRCLE(l 
50,59),5,,,3.14/2 

640 PSET (150,54) i DRAM 11 LI5" i CIRCLE ( 135,3 
2),22,,3.14/2,3/2*3.14 

650 PSET(135,10):DRAW"R50M200,40M215,10 
R15M215,45M230,80L17M200,55M188,80" 

660 DRAW"LI7M185,45M175,25L35" 

670 CIRCLE(140,30),5,,3.14/2,3/2*3.14:P 
SET(140,35):DRAW"R10" 

680 CIRCLE(150,58),22,,3/2*3.14:CIRCLE( 
150,58),22,,,3.14/2 

690 PSET(150,80):DRAW"L55M82,40M73,BOLI 
4M48,40M38,80L17M39,10" 

700 PAINT(122,45) 

710 RETURN 

720 REM —————————— 

730 REM SCRITTA "SPRITE" 

740 REM —- 

750 FORT=30T034STEP2 
760 PSET(T-5,T+75) 

770 REM LETTERA "S" — 

780 DRAW"S4C10R20D14DL20F20D15G10L25U20 
R20H20U1OE1OR10" 

790 PSETSTEP(28,0) 

800 REM — LETTERA "P" 

810 DRAW"C13R24F5D20G5L10D30L15U59BR1OB 
D5R1OD1OL1OU10" 

820 PSETSTEP(31,-6) 

830 REM —« LETTERA "R" — 

840 DRAW"C15R24F5D25L1OF10D20L15U20L5D2 
OL10U59BR10BD5R1OD1OL1OU10" 

850 PSETSTEP(35,-6) 

860 REM — LETTERA "I" — 

870 DRAW"C8R10D40R2D20L12U60" 

880 PSETSTEP(20,0) 

890 REM mmm LETTERA "T" -== 

900 DRAW"C3R39D1OL15D30R2D20L12U50L15U1 
0" 

910 PSETSTEP(54,0) 

920 REM —» LETTERA "E" — 

930 DRAW"C4R25D1OL1OD1OR1OD1OL10D20R1OD 
10L25U59" 
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940 NEXTT 

950 LINE(65,178)— ( 180,188 ) ,7,BF 

960 F0RT-1T03 

970 PSET(00+T,180) ,0 

900 PRINT#1,"LIST - 1905" 

990 NEXT 

1000 PAINT(40,150) , 10 
1010 PAINT(70,150),13 
1020 PAINT<102,150),15 
1030 PAINT(152,150),0 
1040 PAINT(105,150),3 
1050 PAINT(220,150),4 
1060 RETURN 

1070 REM —————————— 

1000 REM MOTIVETTO INIZIALE 
1090 REM 

1100 PLAY"03V1OT22OM2OOOSOL0","V12L4"," 
L4V12" 

1110 PLAY"CCEEGGAAA#A#AAGGEE" 

1120 PLAY " CCEEGGAAA#A#AAGGEE" 

1130 PLAY"FFAA04CCDDD#D#DDCC03AA","FFF" 

,"AAA" 

1140 PLAY"CCEEGGAAA#A#AAGGEE " ,"CCCSOL0" 

,"EEE" 

1150 PLAY"GGBB04DDEEGGEEDD03BBFFAA04CCD 
DFFDDCC03AA","GGGGGGGGFFFFFFFF" 

1160 PLAY"L4CCCCL8GGL1C " 

1170 F0RT=0T02100iNEXTT 
1180 RETURN 

1190 REM —~——————— 

1200 REM MENU 

1210 REM ——— 

1220 SCREEN2 

1230 LINE(35,20 ) -(235,190 ) ,6,BF 
1240 LI NE ( 25, 10 ) — ( 225,180 ) , 10, BF 
1250 LINE(15,0)-(215,170),15,BF 
1260 PSET(28,10),15 

1270 PRINT#1,"M S X S P R I T E" 
1280 PSET(28,18),15 

1290 PRINT#1," « 

1300 PSET(28,707715 

1310 PRINT#1,"1) Sprite* 8x8" 

1320 PSET(35,100),15 

1330 PRINT#1,"2) Sprites 16x16" 

1340 BEEP 
1350 RETURN 

1360 REM ————————— 

1370 REM CONTROLLO CURSORE 
1380 REM ———————— 

1390 0NSTICK(0)+1G0T01400,1410,1420,143 

0,1440,1450,1460,1470,1480 

1400 RETURN 

1410 B®B-CiG0T01490 

1420 A=A+C:B*B-C:G0T01490 

1430 A“A+CsGOTO1490 

1440 A=A+Cs B*B+Cs G0T01490 

1450 B*B+Ci G0T01490 

1460 A=A-C:B*B+CiG0T01490 

1470 A*A—C* G0T01490 

1480 A-A-CsB-B-C 

1490 IFA<630RA > 1B60RB< 320RB > 159THENA-A1 
sB»BliGOTO1390 

1500 IFA(RIG,C0L)=0THEND«NELSED«2 

1510 IFA<A1THENCOL-COL-1ELSE IFA >A1THENC 

0L»C0L+1 

1520 IFB<B1THENRIG=RIG-1ELSEIFB >B1THENR 


XG-RIG+1 

1530 LINE(Al,Bl)-(Al+8/S,Bl+8/S),D,BF 
1540 Al-AiBl-B 
1550 0NFLAGG0SUB2190,2210 
1560 D=15 

1570 L INE ( A, B) - <A+8/S , B+8/S) , , BF 
1580 A*="" 

1590 RETURN 

1600 REM ———————— 

1610 REM CONTROLLO TASTI FUN. 

1620 REM ———————— 

1630 ONKEYGOSUB1650,1660,1710,1760,1830 
1640 RETURN 

1650 FLAG-0 * GOSUB1840 1 RETURN 

1660 FLAG-1 

1670 GOSUB1840 

1680 G0SUB2190 

1690 GOSUB1510 

1700 RETURN 

1710 FLAG-2 

1720 GOSUB1840 

1730 G0SUB2210 

1740 GOSUB1510 

1750 RETURN 

1760 FLAG»3sG0SUB1840 

1770 G0SUB2330:G0SUB2350 

1780 A*-"" 

1790 G0SUB2310 

1800 A=67-G:B=36-Gs Bl=Bs Ai-AiRIG»0*COL- 

0 ? 

1810 G0SUB2130sG0SUB1510iTIME-0 
1820 RETURN 

1830 G0SUB2330 1 FLAG-4 s RETURN 

1840 LINE(15+K*50,7)-(39+K*50,16),K+1,B 

F 

1850 LINE(15+FLAG*50,7)-(39+FLAG*50,16) 

,15,BF 

1860 K-FLAGsBEEPsRETURN 

1870 REM —————— 

1880 REM CONTROLLO TASTI 

1890 REM ———————— 

1900 I*-INKEY* 

1910 IFI""THENIFTIME >200THENTIME-0 s GO 

SUB2010ELSERETURN 

1920 TIME-0 

1930 IFI*«" "THENG0SUB2190iG0SUB1560sGO 
T01970 

1940 IFI*-CHR»(13)THENG0SUB2210iGOSUB15 
60sGOTO1970 

1950 IFI*="R"ORI*="r"THENG0SUB2230! GOTO 
1970 

1960 IFI♦* r "C"ORI♦="c "THENG0SUB2270i GOTO 
1970 

1970 RETURN 

1980 REM ———————— 

1990 REM QUADRETTO CON SPRITE 
2000 REM ————————— 

2010 A*-" M iB*-""«E-0 

2020 IFS=1THENX»0:G0SUB2040IG0T02130 
2030 X-Os G0SUB2040:X»8iG0SUB2040s G0T021 

30 

2040 F0RJ=0T07+(4*G) 

2050 F0RW=XT0X+7 

2060 B$=B*+RIGHT*(STR*(A(J,W)),1) 

2070 NEXTW 

2000 A*=A*+CHR$(VAL("&B"+B$)) 

















































2090 E-E+l:D(E)-VAL("&B"+B») 

2100 B*="" 

2110 NEXTJ s B*-"" 

2120 RETURN 

2130 SPRITE*(0)«A* 

2140 PUTSPRITEO,(124-<2*G>,172-<2*G)),1 
2150 RETURN 
2160 REM 

2170 REM CAN. E RIEMP. QUAD. 

2180 REM —————— 

2190 LINE(A-3+G,B-3+G)-(A+l1-(3*G),B+11 
-(3*G)>,N,BF»A(RIG,CQL)*0»RETURN 
2200 REM 

2210 LINE(A-3+G,B-3+G)-(A+l1-(3*G),B+11 
-(3*G>) ,2,BF*A(RIG,C0L)=1sRETURN 
2220 REM 

2230 F0RT-64T0188STEP16/Ss LINE <T,B-3+G) 

-(T+14-(4*G),B+l1-(3*G)),2,BFiA(RIG,(T- 

64)/(16/S))=1s NEXTT 

2240 G0SUB1500 

2250 RETURN 

2260 REM 

2270 F0RT=33T0157STEP16/SsLINE(A-3+G, T) 

-(A+l1-(3*G),T+14-(4*G)),2,BF»A<(T-33)/ 

(16/S) ,COL)=1 :NEXTT 

2280 G0SUB1500 

2290 RETURN 

2300 REM 

2310 FORU-1T051 KEY(U)GN s NEXTU sRETURN 
2320 REM 

2330 FORU*1T05iKEY(U)OFFj NEXTUs RETURN 
2340 REM 

2350 FQRT-0T07+ (4*G) 

2360 F0RW-0T07+(4*G) 

2370 A(W|T)"0 

2380 LINE(64+ (W*16/S),33+(T*16/S))-(7B- 
<4*G)+(W*16/S),47-<4*G)+(T*16/S>), N, BF 
2390 NEXTW,T 

2400 FLAG-0 * GOSUB18401RETURN 
2410 REM 

2420 REM VALORI PER "DATA" 

2430 REM ———————— 

2440 C0L0R4,14,141SCREEN1 
2450 KEYOFFiWIDTH32 
2460 LOCATEO,0 

2470 PRINT" Se vorrai mettere questa -fi 
gurasprite nei tuoi programmi,dovrai bat 
tere le seguenti linee»" 

2480 LOCATEO ,8 

2490 PUT SPRITEO,(124-(G*2),36-(G*2)),8 
2500 PRINT"60000 FOR T-l T0"8+(G*12) 
2510 PRINT"60010 READ A" 

2520 PRINT"60020 A*-A*+CHR*(A)" 

2530 PRINT"60030 NEXT T" 

2540 PRINT"60040 SPRITE(0)-A*" 

2550 PRINT"60050 RETURN" 

2560 PRINT"60060 DATA"| 

2570 F0RE=1T07+(12*G) 

2580 PRINTD(E )","5 
2590 NEXTE 

2600 PRINTD( 8 +(12*G)) 

2610 L0CATE5,24 

2620 PRINT"Vuoi continuare? (S/N)"| 

2630 I*«INKEY* 

2640 IFI*=""THEN2630 

2650 IFI*="S"ORI*="s"THENRETURN 


2660 IFI*-"N"0RI*="n"THEN2670ELSE2630 
2670 SCREENO,,1 1 COLOR 15,4,4 
2680 KEYON 
2690 END 

2700 SCREENlcC0L0R15,1, 81 KEYOFF 
2710 WIDTH32 
2720 PRINT 

2730 PRINT"Vuoi vedere uno sprite immet 
ten-do "|M|"valori ? (S/N)" 

2740 I*=INKEY* 

2750 IFI$*""THEN2740 

2760 IFI"S"ORI»s"THEN2790 

2770 IFI"N »ORI*-"n"THENM-0: RETURN 

2780 G0T02750 

2790 CLS 

2800 FORT*1TOM 

2810 PRINT"Val ore n.";TjsINPUTD(T) 

2820 IFD(T)>2550RD(T)<0THEN2B10 

2830 NEXT 

2840 CLS 

2850 LOCATEO,0 

2860 F0RT=lT0M/2 

2870 PRINTTAB(3);T; " _";TAB(10);D(T); 

TAB(18);T +(M/2)j"_";TAB(23> *D(T+<M/2 

) > 

2880 NEXTT 
2890 PRINTSPRINT 

2900 PRINT"Hai scritto bene i valori? ( 
S/N) " 

2910 I*=INKEY* 

2920 IFI♦=""THEN2910 

2930 IFI*= " S"ORI*="s"THEN2950 

2940 IFI$="N"ORI**"n"THEN2790ELSE2910 

2950 IFM=8THENG0SUB290iG0T03120ELSEG0SU 

B220:G0T02990 

2960 REM 

2970 REM DISEGNO SPRITE 16x16 
2980 REM ====*===*==========«==« 

2990 FORT-ITO16 

3000 H1*»BIN*(D(T> ) s P- 8 -LEN (HI») s IFPOO 
THENH1»=STRING*(P,"0")+H1* 

3010 H2»=BIN»(D(T+16)> 1 P-B-LEN(H2$)sIFP 
< >0THENH2*«STRING*(P,"0")+H2* 

3020 H»=H1»+H2» 

3030 F0RY-1T016 

3040 IF(MID»(H»,Y,1))-"1"THENLINE(56+8* 
Y,25+8*T)-(62+B*Y,31+B*T) ,2,BFs G0T03050 
3050 A(T-1,Y-1)-VAL(MID»(H»,Y,1)) 

3060 NEXTY,T 
3070 G0SUB2010 
3080 G0T0500 
3090 REM 

3100 REM DISEGNO SPRITE 8 x 8 

3110 REM 

3120 F0RT-1T08 

3130 H»-BIN»(D(T)):P- 8 -LEN(H») 

3140 P-B-LEN<H») 

3150 IFP< >OTHENH»=STRING»(P,"0")+H» 

3160 F0RY-1T08 

3170 IF(MID»(H»,Y,1))="1"THENLINE(48+16 
*Y,17+16*T)-(62+16*Y,31+16*T>,2,BF:G0T0 
3180 

3180 A(T-1,Y-1)-VAL(MID» < H»,Y,1) ) 

3190 NEXTY,T 
3200 G0SUB2010 
3210 G0T0500 
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* POKER 

di FABRIZIO RUSSO 


QUESTO PROGRAMMA È DISPONIBILE SU CASSETTA O 
DISCO PRESSO LA REDAZIONE. 

PER LE ISTRUZIONI DI ACQUISTO CONSULTARE LA PAGINA 
DI APERTURA DELLA SEZIONE SOFTWARE 


Vi ricordate il boom dei video-games che invasero le 
arcade nonché le bische clandestine? 

Ebbene questo programma ne é la versione in MSX 
basic che servirà a portare nelle vostre case il brivido 
e l’eccitazione del gioco d’azzardo. 

Dopo un primo ma corto periodo di ambientazione, 
scoprirete di non volervi più allontanare dallo 
# schermo del vostro televisore presi da questo 
entusiasmante video-game. 

Se non sapete come esso si svolga, allora sappiate 
0 che le sue regole sono molto simili a quelle del poker 
americano. Oltre ad avere 52 carte è infatti possibile 
fare qualsiasi tipo di scala e così ad esempio sono 
ammesse scale del tipo 2, 3, 4, 5, 6 oppure 8, 9,10, 
J,Q. 

Dopo che vi viene richiesta la vostra puntata, 
vengono scoperte le 5 carte che a questo punto voi 
potete cambiare o tenere anche solo in parte, 
secondo la combinazione capitatavi. 

^ Per tenerle tutte dovete premere sulla tastiera il tasto 
‘S’ che significa ‘servito’ e se invece avete 
l’intenzione di sostituirne qualcuna oppure tutte 
quante, allora dovete battere il numero 
corrispondente. 

Ricordate che quando impostate dei numeri, dovete 
farli sempre seguire dal testo ‘return’. 

Le combinazioni vincenti sono 7 e cioè 
rispettivamente la scala reale (che in questa versione 
è considerata come una scala massima con i segni 
non necessariamente uguali), il poker, il colore , il full, 
la scala, il tris e la doppia coppia. 

In caso di vincita, la puntata viene moltiplicata per il 
fattore riportato sullo schermo a fianco della 
combinazione da voi ottenuta. 

Di seguito vi viene chiesto di tentare la fortuna e cioè 
di provare a raddoppiare la vincita. 

Se battete ‘N’ allora la vincita viene aggiunta al 
vostro captale mentre se battete ‘S’ allora si 
copione e carte, si mescola il mazzo e vi viene data 


una carta scelta in modo casuale. 

Se il valore della carta va dall’asso al cinque (seme di 
picche), si perde tutta la puntata altrimenti se si ha 
dal 6 al 10 (seme di cuori), allora si moltiplica per due 
la vincita. 

Con un pò di fortuna e di voglia di rischiare, si 
potranno raggiungere anche cifre da capogiro. 

Il vostro capitale iniziale può essere modificato 
modificando la variable S nella linea 190. 

Il programma è scritto interamente con il metodo 
della programmazione strutturata così da renderlo 
più facilmente comprensibile e leggibile a chiunque 
anche se tuttavia rimane sempre un pò complicato. 
Per la gestione delle carte e delle combinazioni 
vengono sfruttate 6 matrici monodimensionali. 

Con la matrice car$ (52) si rappresenta il mazzo di 
carte ed essa viene caricata con la subroutine 
810-910. 

La matrice R (14) contiene la combinazione finale 
delle 5 carte del giocatore e viene esaminata nella 
subroutine 2670-3020. 

Le altre matrici servono sia a contenere le carte del 
giocatore che ad evitare di scegliere carte già prese 
dal mazzo. 

ATTENZIONE!! La stampante usata per listare il 
programma, non ha riconosciuto i simboli grafici 
MSX cosicché dovrete introdurre alcune modifiche al 
programma in fase di digitazione. 

Infatti nella routine di scelta del seme e del colore, 
appaiono dei valori errati per la variabile V$. 

Bisogna perciò modificare le seguenti righe: 

1850 V$=CHR$(1)+CHR$(67): ecc. 

1860 V$=CHR$(1) + CHR$(68): ecc. 

1870 V$=CHR$(1)+CHR$(69): ecc. 

1880 V$=CHR$(1)+CHR$(70): ecc. 

La presentazione del Programma è accompagnata 
dalle note del motivo principale del film 
«Ghostbusters», suonate attraverso i macrocomandi 
dell’istruzione play nelle linee 950-1020. 


IO 
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L 
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90 

‘ L 
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L 
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L 
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RICH. PUNTATA 
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L 
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L 
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L 
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ww 
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L 
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300 G0SUB1210 ' COP. CARTE 
310 G0SUB15S0 

320 IFT-6THENG0SUB3640iGOSUB1550iG0T024 

0ELSE240 

330 ' 

340 ' PRESENTAZIONE 

350 ' 

360 SCREEN2 
370 COLOR15,1,15 
300 CLS 

390 LI NE ( 3,3 ) - ( 252,188 ) , 4, B 
400 LINE ( 7,7 ) - ( 248,184) , 4, B 
410 PAINT(5,5),4 
420 PSET(20,50) 

430 DRAW"C8R30D20L20D20L10U40BF5BR5R1OD 
10L10U10" 

440 PSET(70,100) 

450 DRAW " C4R30D40L30U40BF1OR10D20L10U20 

m 

460 PSET(115,50) 

470 DRAW " C8R1OD1OE1OR10G20F20L1OH1OD1OL 
10U40" 

480 PSET(160,100) 

490 DRAW"C4R30D10L20D5R1OD1OL10D5R20D1 0 
L30U40" 

500 PSET(205,50) 

510 DRAW"C8R30D20L20F20L1OH1OD1OL10U40B 
F5BR5R1OD1OL1OU10 " 

520 F0RT-0T018 PSET ( 15,8+165*T),liPRINT# 
1,"m*x " :PSET(220,8+165*T),1 iPRINT# 1,"m* 
x"iNEXTT 
530 RETURN 
540 ' 

550 ' CARICAMENTO DATI 

560 ' 

570 G0SUB950 
580 PSET(45,155),1 
590 G0SUB840 
600 RETURN 
610 ' 

620 ' PREPARAZIONE SCHERMO 

630 ' 

640 COLORI,12,12 
650 CLS 


670 PRINT#1 , " SCALA REALE.-PUNT. 

x 100" 

680 PRI NT# 1 , " POKER.-PUNT. 

x 50" 

690 PRINT#1, " COLORE.-PUNT. 

x 30" 

700 PRINT#1, " FULL.-PUNT. 

x 20" 

710 PRINT#1, " SCALA.-PUNT. 

x 10" 

720 PRINT#1, " TRIS.-PUNT. 

x 5" 

730 PRINT#1," DOPPIA COPPIA.-PUNT. 

x 2" 

740 FORT-5T0205STEP50 


750 LINE(T,60)—(T+44,140),15,BF 
760 NEXT 

770 LINE(5,150)-(250,180),8,BF 
780 LINE(5,180)-(250,191),7,BF 
790 G0SUB1210 
800 RETURN 


810 ' 

820 ' CAR. TAB. CARTE 

830 ' 

840 REST0RE880iFORT-1T052 
850 READA*»CAR*(T)-A* 

860 NEXTT 
870 RETURN 

880 DATA 21,22,23,24,31,32,33,34,41,42, 
43,44 

890 DATA 51,52,53,54,61,62,63,64,71,72, 
73,74,81,82,83,84 

900 DATA 91,92,93,94,101,102,103,104,J1 

,J2,J3,J4,Q1,Q2,Q3,Q4 

910 DATA K1,K2,K3,K4,A1,A2,A3,A4 

920 ' 

930 ' MELODIA INIZIALE 

940 ' 

950 PLAY"SIM3000T210 " ,"S1M3000T210" 

960 PLAY"02L4AAL8A03DEEL403GGF#F#" 

970 PLAY"02L4AAL8A03DEEL403GGF#F#" 

980 F0RT-0T01 

990 PLAY " 02L4AAL8A03DEEL403GGF#F# " ,"R4L 
8AB05L8C#R804L4ABGD" 

1000 PLAY"02L4AAL8A03DEEL403GGF#F#","R2 
AAGBA" 

1010 PLAY " 02L4AAL8A03DEEL403GGF#F#","R4 
L8AB05L8C#R804L4ABGD" 

1020 PLAY"02L4AAL8A03DEEL403GGF#F#","04 
AAAAGBA" 

1030 NEXTT 

1040 PAINT(21,51),8 

1050 PAINT(121,51),8 

1060 PAINT(206,51 ) ,8 

1070 PAINT(71,101),4 

1080 PAINT(161,101),4 

1090 PLAY " 02L4AAL8A03DEEL403GGF#F# " 

1100 PLAY"02L4AAL8A03DEEL403GGF#F#02A" 
1110 F0RJ-0T03000:NEXTJ 
1120 S0UND7,&B10111110 
1130 S0UND8,0 
1140 SOUND11,0 
1150 S0UND12,100 
1160 SOUND13,&B0001 
1170 RETURN 
1180 ' 

1190 ' COPERTURA CARTE 

1200 ' 

1210 F0RT-0T04 

1220 LINE(12+T*50,65)- ( 42*T*50,135),1,B 
F 

1230 NEXT 
1240 RETURN 
1250 ' 

1260 ' RICH. PUNTATA 

1270 ' 

1280 PSET(15,160),8 
1290 COLORI 

1300 PRINT#1,"Quanto punti(Max 500)?" 
1310 PSET(200,160),8 
1320 W*-"" 

1330 IINKEY*« IFI*- "" THEN1330 

1340 IFI*-"C"0RI*»"c"THENLINE(200,160>- 

(250,170),8,BF:GQTQ1310 

1350 IFASC(IO-13THEN1420 

1360 IFASC(IO>570RASC ( I♦) < 48THEN1330 

1370 W*-W*+I* 
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1300 W*VAL(WV> 

1390 IFW>5000RLEN(W$ ) >3THENI*="C"iG0T01 
340 

1400 PRINT#1,I»; 

1410 G0T01330 

1420 IFW*OORW >STHENI *■ " C"iG0TQ1340 

1430 LINE(15,160) -(250,170), 8, BF 

1440 S-S-W 

1450 G0SUB1500 

1460 RETURN 

1470 * 

1400 ' AGG. CAPITALE E PUNTATA 

1490 ' 

1500 COLORI 

1510 PSET<10,102),7 

1520 PRINT#1,"CAP.*" 

1530 PSET(130,182),7 
1540 PRINT#1,"PUNT. 

1550 LINE ( 50,182)-(129,191), 7, BF 

1560 LINE(175,102)-(250,191), 7, BF 

1570 PSET<45,182),7 

1580 PRINT#1,S 

1590 PSET<172,182),7 

1600 PRINT#1,W 

1610 IFS-0ANDW-0THENT-6IRETURN 
1620 RETURN 
1630 * 

1640 ' CARTE GIOCATORE 

1650 '* 

1660 X-12 
1670 F0RT-1T05 

1680 C-INT(RND(-LOG(TIME) ) *52>+l 

1690 F0RJ-1T0T 

1700 IFC“A ( J ) THEN1680 

1710 NEXTJ 

1720 A(T)-C 

1730 L*(T)=LEFT*(CAR*(C>,LEN(CAR*(C))-l 
) 

1740 Z<T)»VAL(RIGHT*(CAR*(C>,1)) 

1750 G0SUB1B40 
1760 G0SUB1930 
1770 IFB-ITHENB-OiRETURN 
1780 X-X+50 
1790 NEXTT 
1800 RETURN 
1810 * 

1820 ' SEME E COLORE 

1830 ' 

1840 ONZ<T)GOTO1850,1860,1870,1880 

1850 V*-"C"iA»B:GOTO109O 

1B60 V$“"D"iA"8iG0T01B90 

1870 V*-"E":A-li GOTO1090 

1880 V*-"F":A-1 

1890 RETURN 

1900 ' 

1910 ' VISUALIZ. CARTE 

1920 ' 

1930 TP-INT<1789800#/(16*(T*100+10)) ) 
1940 CT-TP/256 
1950 FT=TPM0D256 

1960 S0UND8,1 0 s SOUNDO,FT s SOUND1,CT 
1970 LINE ( X,65) -( X+30,135),15,BF 
1980 PSET ( X,65 ) ,15:COLORA 
1990 PRINT#1,L*(T>j 

2000 IFL*(T)="10"THENPSET(X+10,65>,A:PR 
INT#1, " " ;L*(T):G0T02020 


2010 PRINT#1," "|L* <T) 

2020 PSET(X+11,96),15 
2030 PRINT#1,V* 

2040 PSET(X,127),15 
2050 PRINT#1,L*(T>; 

2060 IFL*(T>""10"THENPSET(X+10,127),A:P 
RINT#1," "$ L$(T ) :G0T02080 
2070 PRINT# 1 , " ";L$(T> 

2080 S0UND8,0 
2090 RETURN 
2100 ' 

2110 ' CAMBIO CARTE 

2120 ' 

2130 PSET ( 15,160),8 
2140 C0L0R4 

2150 PRINT#1,"Quante carte?" 

2160 I*=INKEY$ 

2170 IFI$=""THEN2160 

2180 IFI*="S"0RI$="s"THENT*0: G0T02240 
2190 IFASC (IO >530RASC(I*X49THEN2160 
2200 T-VAL<I*> 

2210 PSET(120,160),8:PRINT#1,T 
2220 I*=INKEY* sIFI*=""THEN2220 
2230 IFI*»CHR*(13)THEN2240ELSELINE(120, 
160)-(140,170) ,8,BF: G0T02160 
2240 LINE(10,160)-(140,170),8,BF 
2250 IFT“OTHENPSET(100,160) ,8 r PRINT#1," 
SERVITO":FORJ=0T01000: NEXT:LINE(100,160 
)-(200,170),8,BF:RETURN 
2260 ' 

2270 IFT-5THENF0RJ=1T05:D < J)-J:NEXTJ: RE 
TURN 

2280 COLORI 

2290 PSET(30,155),8:PRINT#1,"1 2 

3 4 5" 

2300 PSET(105,170),8 
2310 PRINT#1,"QUALI?" 

2320 F0RJ”1T05:D(J)=0:NEXT 
2330 F0RJ-1T0T 
2340 I*-INKEY* 

2350 IFI»C"ORI*="c"THENK=1 :G0T02460 
2360 IFI♦=""THEN2340 

2370 IFASC(I*) < 490RASC(I *)>53THEN2340 

2380 F0RX-1T0J 

2390 IFVAL(1$)=D(X)THEN2340 

2400 NEXTX 

2410 D(J)-VAL<I*) 

2420 LINE(-21+D(J)*48,153)-(-11+D(J)*48 
,163),,B 
2430 NEXTJ 

2440 K-0«I*=INKEY*:IFI*=""THEN2440 
2450 IFI**CHR$(13)THEN2460ELSEK*1 :G0T02 
460 

2460 LINE(20,150)-(230,178),8,BF 
2470 IFK-1THEN2290 
2480 RETURN 
2490 ' 

2500 ' CAMBIO CARTE 

2510 ' 

2520 IFT-OTHENRETURN 

2530 L-T 

2540 F0RJ-1T0L 

2550 C“INT(RND(-LOG(TIME))*52)+1 
2560 FORH*1T05 
2570 IFC*A(H)THEN2550 
2580 NEXTH 
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2590 D-D(J) 

2600 A(D)-C 

2610 X-12+ (D-l )*50 

2620 B-l 

2630 T-D 

2640 G0SUB1730 

2650 NEXTJ 

2660 RETURN 

2670 ' 

2680 ' CALCOLO COMBINAZIONI 

2690 ' 

2700 COLORI 

2710 FORT-1T05 

2720 J-INT< <A(T)+3)/4) 

2730 R(J)-R(J)+1 
2740 Z-Z(T) 

2750 K(Z)-K(Z)+1 
2760 NEXTT 
2770 F0RT-1T013 

2780 ONR ( T > G0T02800,2810,2820,2830 
2790 G0T02840 

2800 IFR (T+l)-1THEN0-0+6* G0T02840ELSE28 
40 

2810 N-N+liG0T02840 
2820 N-N+3:G0T02840 
2830 N-5 
2840 NEXTT 
2850 F0RT-1T04 

2860 IFK(T)-5THENPSET<105,160),BiPRINT# 
1, "COLORE"iV-30:G0T02970 
2870 NEXTT 

2880 IFO-18ANDR(13)-1ANDR(12)-OTHENGOSU 
B3230:G0T02970 

2890 IF0-24THENG0SUB3220:G0T02970 
2900 0NNG0TQ2910,2920,2930,2940,2950 
2910 RETURN 

2920 V-2:PSET<80,160),8:PRINT41,"DOPPIA 
COPPIA"IG0T02970 

2930 0*5iPSET(115,160),BiPRINT#l,"TRIS" 
iG0T02970 

2940 V-20:PSET<115,160),8:PRINT#1,"FULL 
" iG0T02970 

2950 0-50iPSET(110,160),8iPRINT#1,"POKE 

R" iG0T02970 

2960 RETURN 

2970 W-W*V 

2980 G0SUB3520 

2990 FORY-OTOlOOOlNEXT 

3000 G0SUB3280 

3010 S-S+W 

3020 RETURN 

3030 ' 

3040 ' AZZERAMENTO VAR. E MATR. 

3050 ' 

3060 F0RT=1T013 
3070 R(T)-0 
3080 NEXTT 

3090 N=0:Q-0:0=0:W-0 

3100 F0RT=1T04 

3110 K. ( T ) -0 

3120 NEXTT 

3130 F0RT-1T05 

3140 A (T) -0 

3150 Z(T)-0 

3160 D(T)=0 

3170 NEXTT 

3180 RETURN 


3190 

3200 SCALE 
3210 

3220 IFR(13)-1ANDR<12)=1THENV=100: N-0:P 
SET(88,160),8:PRINT#1,"SCALA REALE":RET 
URN 

3230 V-10: PSET(110,160),8;PRINT#1,"SCAL 
A" 

3240 RETURN 
3250 ' 

3260 'RADDOPPIO 
3270 ' 

3280 G0SUB1550 

3290 LINE(15,150)-(200,170),8,BF 
3300 PSET<95,160),8 
3310 PRINT41,"RADDOPPI?" 

3320 I4-INKEY* 

3330 IFI4-""OR(I4< >"S"ANDI$< >"s"ANDI4< > 
"N"ANDI %< >" n " >THEN3320 
3340 IFI*="S " ORI4-"s"THEN3350ELSE3470 
3350 G0SUB1210 

3360 LINE(50,160)-(200,170),8,BF 
3370 X-112 

3380 G-INT(RND(-LOG(TIME))*10)+1 
3390 IFG-10THENC-52: G0T03420 
3400 C«G*4 

3410 IFC>16THENC“C-3iG0TQ3420 
3420 B-liT-liG0SUB1720 

3430 IFG<50RG=10THENW*0:PSET(90,160),8: 

PRINT41,"HAI PERSO..."s F0RT«0T02000iNEX 

T t G0T03470 

3440 PSET(90,160),8 

3450 COLORI 

3460 W-W*2iU-l: PRINT41,"HAI VINTO !!"sG 

0SUB3520» G0T03280 

3470 LINE(90,160)—(200,170),8,BF 

3480 RETURN 

3490 ' 

3500 ' ROUTINE SONORA 

3510 ' 

3520 S0UND8,15 

3530 F0RT-0T015 

3540 SOUND1,10 

3550 FORY—0T050:NEXTY 

3560 SOUND1,2 

3570 F0RY-0T050:NEXTY 

3580 NEXTT 

3590 S0UND8,0 

3600 RETURN 

3610 ' 

3620 ' ESAURIM. CAPIT. 

3630 ' 

3640 PSET(10,160),8 

3650 PRINT41,"HAI PERSO TUTTO...." 

3660 PSET(10,170),8 

3670 PRINT41,"VUOI CONTINUARE (S/N)?" 
3680 I4-INKEY4 

3690 IFI " OR < I ♦< > " S " AND I ♦< > " » " AND 1*0 

"N"ANDI*< >"n")THEN36B0 

3700 IF14= " S " OR14-"s"THENS=10000 s LINE(1 

0,160)-(200,179),8,BF:RETURN 

3710 SCREENO 

3720 COLOR15,4,4 

3730 KEYON 

3740 CLEAR 

3750 END 
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MATH SOFTWARE 

di MASSIMO TRUSCELLI 


QUESTO PROGRAMMA È DISPONIBILE SU CASSETTA O 
DISCO PRESSO LA REDAZIONE. 

PER LE ISTRUZIONI DI ACQUISTO CONSULTARE LA PAGINA 
DI APERTURA DELLA SEZIONE SOFTWARE. 


Disequazioni di II grado 
Equazione della retta 
Funzione trigonometriche e 
funzioni continue 



Dopo l’intervallo (breve) delle vacanze, 
inevitabilmente riprendono le attività lavorative o di 
studio. 

Questo per la scuola sarà un anno importante: il 
computer (meglio dire l’elaboratore), si avvia a 
divenire un elemento sempre più importante 
all’interno dell’organizzazione scolastica. 

LIST da sempre attento alla sperimentazione 
didattica col computer, rivolgerà ancora di più la sua 
attenzione ai problemi didattici. 

Il programma presentato in queste pagine per il Sega 
SC 3000 è un «pacchetto» di software che potrà 
vantaggiosamente essere usato dagli studenti delle 
scuole medie superiori per controllare i principi di 
risoluzione delle disequazioni di II grado, per capire il 
concetto di variabile e per risolvere problemi di 
geometria analitica legati alla rappresentazione, in 
assi cartesiani, della retta, delle funzioni 
trigonometriche e delle funzioni continue. 

Dopo la solita presentazione, ottenuta usando lo 
schermo grafico del computer, appare il menù che 


offre 5 opzioni. 

DISEQUAZIONI DI II GRADO 

Come da qualsiasi testo di algebra si chiama 
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EQUAZIONE DELLA RETTA 



disequazione una delle scritture: 

A(x) > B(x) 


oppure 

A(x) < B(x) 

se con tale scrittura si pone il problema di cercare i 
valori da attribuire alla x per i quali i due polinomi A(x) 
e B(x) acquistano valori che soddisfano alla relazione 
indicata dalla scrittura. 

Una disequazione di II grado è solitamente 
rappresentata nella forma: 

A(x) ~2+Bx+C > O 


oppure 

A(x) ~2 + Bx+C < O 

Per risolvere la disequazione il primo passo da 
compiere è calcolare il discriminante 
DELTA = B~2 - 4*A*C e confrontarlo con A. 
SeA>OoA<0 bisogna confrontare anche il 
segno della disequazione. 

Per ragioni di comodità, invece di spiegare caso per 
caso, per quali valori d’intervallo sono soddisfatte le 
disequazioni, si è preferito corredare queste brevi 
note introduttive con lo schema di fig. 1 tratto dal 
testo: 

Giuseppe Zwirner «Complementi di Algebra e 
nozioni di Analisi Matematica per i licei scientifici» - 
Edizioni CEDAM Padova. 



Sempre dal testo di Zwirner poco prima citato si può 
notare che l’equazione cartesiana della retta 
Ax + By + C = 0 può vantaggiosamente essere 
trasformata nella seguente: 

Y = mX + q 

in cui m = -(A/B). 

L’equazione della retta scritta in questa forma si 
chiama equazione esplicita della retta ed m viene 
definito coefficiente angolare della retta. 

Con il programma è possibile tracciare un (n) numero 
di rette in un sistema di assi cartesiani di cui si può 
dichiarare l’origine. 

Unica limitazione è che le coordinate dei punti che 
rappresentano la retta devono essere comprese 
nelle dimensioni dello schermo grafico del computer. 


FUNZIONI TRIGONOMETRICHE 

Per questa parte di programma, come per la 
successiva, in virtù della grande quantità di richieste 
pervenute in Redazione riguardanti le rubriche di 
Duccio Alfano pubblicate sui numeri 5 e 6 del 1984 di 
LIST (alle quali vi rimandiamo per le spiegazioni), si è 
ritenuto opportuno riproporre i programmi che le 
corredavano in versione riveduta e corretta per il 
Sega SC 3000. 



a > 0 



4 = b> - *ac 

ax’ + bx + c > 0 

ax’ + bx + c < 0 

4 > 0 

è soddisfalla da tulli i valori 
della x che sono esterni all’in¬ 
tervallo che ha per estremi le 
radici dell'equazione: 

ax’ + bx + c = 0. 

è soddisfatta da tutti i valori 
della x che sono interni all'in¬ 
tervallo che ha per estremi le 
radici dell’equazione: 

ax’ + bx + c = 0. 

4 = 0 

è soddisfalla da tulli i valori 

della *. tranne il valore - — 
la 

per il quale il trinomio si 
annulla. 

non ammette soluzioni. 

4 < 0 

£ soddisfatta da tutti i valori 
della x. 

non ammette soluzioni. 




« < 0 



4 = b 2 - 4a c 

ax’ + bx + c > 0 

ax 1 + bx + c < 0 


4 > 0 

e soddisfatta da tulli i valori 
della i che sono interni all'in¬ 
tervallo che ha per estremi le 
radici dcU'cquaziuue: 

ax’ + bx + c = 0 . 

e soddisfalla da tutti i valori 
della x che sono esterni all’w- 
tervallo che ha per estremi le 
radici dell'equazione: 

ax’ + bx +• c = 0. 


4=0 

non ammette soluzioni. 

è soddisfatta da lutti i valori 

della x. tranne il valore - — 
la 

per il quale il trinomio si 
annulla. 


4 < 0 

non ammette soluzioni. 

e soddisfatta da tutti i valori 
della x. 





LIST 8/9 


75 








































FUNZIONI CONTINUE 


Una funzione F(x), definita in un intervallo (a,b), si 
dice continua in un punto (c) di questo intervallo, se 
risulta: 

lim f(x) = f(c) 

x-*c 

In altri termini la F(x) si dice continua nell’intervallo 
(a,b) se essa è continua in ogni punto di questo 
intervallo. 

Proseguendo nell’enunciazione delle regole si 
giunge alla formulazione dei seguenti teoremi, 
facilmente verificabili dopo aver visualizzato il grafico 
delle funzioni. 

1) Se una funzione è continua in un intervallo chiuso 
(a,b) essa assume ivi il massimo assoluto e il 
minimo assoluto. 


2) Se una funzione è continua in un intervallo chiuso 
(a,b) essa assume ogni valore compreso tra il suo 
minimo ed il suo massimo assoluto. 

3) Se una funzione è continua in un intervallo chiuso 
(a,b) e se agli estremi dell’intervallo assume valori 
di segno opposto, essa si annulla in almeno un 
punto interno all’intervallo. 

Selezionando l’opzione «Funzioni Continue» il 
programma si arresta alla linea 1470 richiedendo 
l’immissione della F(x) alla linea 1480. 

A scopo dimostrativo, nel listato pubblicato la 
funzione è già stata implementata per cui basterà 
digitare RUN 1480 e premere CR. 

L’intervallo entro cui visualizzare la funzione è -6.28 
e +6.28. 

L’ultima opzione proposta permette di terminare il 
programma una volta concluso lo svolgimento delle 
opzioni richieste. 


STRUTTURA DEL PROGRAMMA 


grado. 

10-250 

Schermo di inizio del programma in 

790-1090 

Risoluzione dell’equazione della 
retta e sua rappresentazione negli 

260-480 

HI-RES. 

Inizializzazione delle variabili, 

1100-1430 

assi cartesiani. 

Rappresentazione delle funzioni 


annulla eventuali dimensionamenti 
di matrici e visualizza il menù delle 

1440-1790 

trigonometriche. 

Rappresentazione delle funzioni 

490-780 

opzioni. 

Risoluzione delle disequazioni di II 

1800-1830 

continue. 

Routine per cambio da schermo 



grafico a modo testo. 


10 REM 

20 REn 



30 REn 

40 REn 

npTH 

SOFTWARE 

50 REn 

60 REn 

CC3 1985 LIST 

70 REn 

80 REn 

nASSino 

TRUSCELLI 

90 REn 

100 REn 
110 REn 
120 REn 

SEGA 

SC 3000 


130 REM 
140 REn 
150 REn 

160 CLS :SCREEN 2,2 :CLS :C0L0R15, 1,C0,0) 
-C254,1911,1 :LINEC20,453-C230,1601,4,B 

170 C0L0R4,15,C40,03-C150,1913 

180 CURSOR 50,10 :PRINTCHR$C173;"SEGA" 

190 CURSOR 50,30 :PRINT ,, n6TH n 


200 CURSOR 50,60:PRINTCHR$C163;"by Has 
s i mo " 

210 CURSOR 50,70:PRINT"TrusceIli" 

220 COLOR 1,11,C 20,100 3 -C 240 , 170 3 

230 CURSOR 40,120 :PRINTCHR$C173 ;"Copyr 

l9ht 1985" 

240 CURSOR 30,140:PRINTCHR$C163;"LIST 
programmi per home-computer" 

250 GOSUB 1800 

260 CLS : SCREEN 1,1 :C0L0R2,1 :ERASE 
270 GOTO 340 
280 A$ = "" 

290 CURSORX,T :PRINTA$ 

300 IF INKEY$ <>""THEN300 
310 2$ = INKEY$ : IF2$ = ""THEN 310 
320 BEEP 

330 CURSORX,T:PRINTA$ : RETURN 
340 COLORI,2 

350 CURS0R3,3 :PRINT"1 Disequazioni di 
II grado" 

360 CURS0R3,5 :PRINT"2 Grafici di rette 
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370 CURS0R3, 7 •' PR I NT " 3 Funzioni s inuso i 
dall" 

380 CURS0R3,9:PRINT"4 Funzioni continu 
e" 

390 CURS0R3, 11 :PRINT"5 FINE" 

400 CURS0R3,21 :PRINT"Quale opzione ?" 
410 X=20:Y=21 

420 GOSUB 280 : IFA$>"5"THENBEEP .‘GOTO 42 
0 

430 IF2$="1"THENGOSUB 490 
440 IF2$ = "2"THENGOSUB 790 
450 I F2$ = "3"THENGOSUB 1100 
460 I F2$ = "4"THENGOSUB 1430 
470 IF2$="5"THENGOSUB 1830 
480 GOTO 260 

490 REH DISEQUAZIONI II GRADO 
500 T$="Disequazioni di II grado" 

510 CLS : CURS0R3,1:PRINTT$:CURS0R3,5:PR 
INT"a*x^2 + b*x + c > 0" :CURS0R3,6:PRI 
NT"a*x~2 + b*x + c < 0" 

520 CURS0R3,7:PRINT" 

I» 

530 CURS0R3,8:PRINT" 

":CURS0R3, 10:INPUT "a = " ;A 
540 CURS0R3,12:INPUT "b = " ;B 
550 CURS0R3, 14 : INPUT "c = ";C 
560 CURS0R3, 16: INPUT "Dis = " ;A$:IF CA 
$<>">" 3 AND CA$<>"<"3 THEN 560 
570 PRINT:PRINT:PRINT:B$="PREni UN TAS 
TO PER PROSEGUIRE" 

580 CURS0R3,18:PRINTB$ 

590 2$=INKE Y$ : IF Z$ = "" THEN 590 

600 CLS:DELTA=B*B-4*A*C 

610 CURS0R3,5:PRINT"DELTA = " ;DELTA 

620 IF A$="<" THEN DISEQ=-1 

630 IF A$=">" THEN DISEQ=+1 

640 SEGNO=SGNCDELTA3 + 2 

650 C$="La Disequazioni e’ soddisfatta 

II 

660 ON SEGNO GOTO 670,690,720 
670 IF A*DISEQ>0 THEN CURS0R3,12:PRIN 
TC$ :CURS0R3, 13:PRINT"per tutti i valor 
l di x":GOTO 760 

680 IF A*DISEQ<0 THEN CURS0R3 , 12:PRIN 
TC$:CURS0R3, 13:PRINT"per nessun valore 
di x" :GOTO 760 
690 X0=-B/C2*A3 

700 IF A*DISEQ>0 THEN CURS0R3,12:PRINT 
C$ :CURS0R3, 13:PRINT"per tutti i valori 
tranne x = ";X0:GOTO760 
710 IF A*DISEQ<0 THEN CURS0R3,12:PRINT 
C$:CURS0R3, 13 :PRINT"per nessun valore 
di x": GOTO 760 

720 X1=C-B-SQRCDELTA33/C2XA3:CURSOR 3, 


8:PRINT"xl = " ;X1 

730 X2=C-BrSQRCDELTA33/C2XA3 :CURSOR 3, 
9:PRINT"x2 = " ;X2 

740 IF A*DISEQ>0 THENCURS0R3,12:PRINTC 
$ : CURSORI,13 :PRINT"per x<"5X1 CURSORI, 
14 :PRINT" e X>";X2 :GOTO 760 
750 IF A*DISEQ<0 THENCURS0R3,12:PRINTC 
$ :CURSOR1,13 :PRINT"per x>";X1 :CURSORl, 
14:PRINT" e X<" ;X2:G0T0 760 
760 CURS0R3,21 :PRINT"PREni UN TASTO PE 
R CONTINUARE" 

770 2$=INKEY$ : IF Z$ = "" THEN 770: 

780 GOTO 260 

790 REM GRAFICO DI RETTE 

800 CLS:CURSOR3,1:PRINT"Graflei di ret 

te" :CURS0R5,5:PRINT" y = m*x q" 

810 T=9 :X=7 :CURS0R3,9 : INPUT "Quante re 
tte vuoi disegnare ? " ;N 
820 PRINT :PRINT"Introduci i coefficien 
t i " 

830 FOR K=1 TO N 

840 Y=13:CLRS0R3,T:PRINT"mC";K;"3=";:I 
NPUT niKj 

850 T=14:CURS0R3,Y:PRINT"qC";K;"3 = " 5 :I 
NPUT QCK3 
860 NEXT K 

870 CURS0R3, 20 :PRlNT"PREf1I UN TASTO PE 
R CONTINUARE" 

880 Y=SQRC-D3 

890 A$=INKEY$ : IF A$ = "" THEN 890 

900 CLS:PRINT"Introduc i le coordinate 

dell’origine" :PRINT 

910 PRINT"x0 deve essere compreso tra 
0 e 254" :PRINT"y0 deve essere compreso 
tra 0 e 191" :PRINT 

920 CURS0R3,5: INPUT "x0 = " ,*X0 :CURS0R3 
,7:1NPUT "y0 = " ;Y0:PRINT 
930 X1=-X0:X2=254-X0:Y1=-Y0:Y2=191-Y0 
940 CURS0R3,9 :PRINT"Asc issa compresa t 
ra";Xl;" e ";X2:CURS0R3,10:PRINT"Ordln 
ata compresa tra";Yi;" e ";Y2 
950 CURS0R3, 19 :PRINT"PREHI UN TASTO PE 
R CONTINUARE" 

960 A$=INKEY$ : IF A$ = "" THEN 960 

970 CLS :SCREEN 2,2:CLS:COLOR2,1,C0,03- 

C254, 191 3,1 :LINE C0,03-C254,191 3,2,B 

980 LINE C0,Y23-C254,Y23,2 

990 LINE CX0,03-CX0,1913,2 

1000 FOR K=1 TO N 

1010 FOR X=1 TO 254 

1020 Y=191-tnCK3XCX-X03+QCK3+Y03 

1030 IF Y<1 OR Y>191 THEN 1050 

1040 PSET CX,Y3,4 

1050 NEXT X 
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1060 NEXT K 

1450 CURS0R3,1:PRINTT$ 


1070 COLORI 1,1, C 0 , 0 D — C 254 ,163,1 :CURSOR 

1460 CURS0R3,8 :PRINT"Per definire la f 


10,4 :PRINT"PREni UN TASTO PER CONTINUA 

unzione digitare : " 


RE" 

1080 X$= INKE Y$ : IF X$="" THEN 1080 

1470 CURSOR0,9 :PRINT"LIST 1480 CCR3 co 
mpletare l ’ istruzione" :CURSOR0 , 10 :PR IN 


1090 CLS:SCREEN l,l:CLS:GOTO 260 

T " e digitare RUN 1480 CCR3" : CURSOR0 , 1 9 


1100 REH FUNZIONI SINUSOIDALI 

•■STOP 


1110 CLS :CURS0R3,1 :PRINT"Funzioni sinu 

1480 DEF FNYCX3=CX+2*SINCX3 3 


soidal i" :CURS0R3,5:INPUT "Numero di si 

1490 CLS :CURSOR0,3:PRINT"Introdurre gl 


riuso i d i = " ;N 

1 estremi ed attendere" 


1120 -Din ACN3 , KCN3 , FCN3 

1500 Din FUNC2553 


1130 FOR 1=1 TO N 

1510 CURS0R3,5 : INPUT"XI = " ;X1 :CURSOR2 


1140 CURS0R3,7:PRINT"aC";I;"3="5:INPUT 

3, 5 : INPUT"X2 = " ;X2 


AC 13 

1520 CLS : CURS0R9 , 1 5 : PR I NT ' ATTENDERE ... 


1 150 CURS0R3 , 9 :PR I NT "k C " 51 5 3 ='* 5 : INPUT 

Il 


K C 1 3 

1530 niN = FNYCXl 3 :nAX=FNYCX23 


1160 CURS0R3 , 11 :PRINT"f C" ;I ;"3 = " ; :INPU 

1540 1=0 :n 1 = 1 :M2=1 


T FCI3 

1550 DX= CX2-X13/254 


1170 NEXT I 

1560 FOR X=X1 TO X2 STEP DX 


1180 AMAX=0 :KMIN=100 

1570 1=1+1 


1190 FOR 1=1 TO N 

1580 FUN C I3 =FNY C X 3 


1200 IF A C I 3> =ANAX THEN AMAX=ACI 3 

1590 IF FNY C X 3 >MAX THEN MAX=FNY CLI 3 : H 1 = 


1210 IF K C I 3 <=KdI N THEN KniN=KCI3 

I:GOTO 1610 


1220 NEXT I 

1600 IF FNYCX3 <MIN THEN HIN=FNYCU3 : M2= 


1230 CURS0R3, 13:PRINT"MAX Ampiezza = " 

I 


;amax 

1610 NEXT X 


1240 Tn=2*PI/KMlN 

1620 CLS 


1250 SX=TM/254 

1630 CURS0R3,5:PRINT"X1 = " ; X 1:CURS0R2 


1260 SY= 100/AMAX 

3,5 :PRINT"X2 = " 5X2 


1270 CURS0R3, 15 :PRINT"MAX Periodo = " 

1640 CURS0R3,13 : PR I NT"MASS I MO stimato 


; tm 

n e l l ’ l n t e r u a l l o : " 


1280 CURS0R3,17:PRINT"SX = ";SX:CURSOR 

1650 CIJRS0R3 , 14 :PR INT "X = ";Xl+ni*DX 


3, 18 :PRINT"ST = " ;SY 

1660 CURS0R3, 15:PRINT"Y = "JFUNCMID 


1290 CURS0R3,19:INPUT "X0 = ";X0:CURSO 

1670 CURS0R3, 16 :PRINT"niNinO stimato n 


R3,20:INPUT "Y0 = " ;Y0 

eli’ Internai lo : " 


1300 CURS0R3 , 22 : PRI NT " PRENI UN TASTO P 

1680 CURS0R3,17:PRINT"X = ";X1+M2*DX 


ER CONTINUARE" 

1690 CURS0R3,18:PRTNT"Y = ";FUNCn23 


1310 A$=INKEY$ : IFA$ = "" THEN 1310 

1700 SY=191/CHAX-niN3 


1320 CLS :SCREEN 2,2 :CLS :C0L0R2, 1 , C0,03 

1710 CURS0R3,20:PRINT"PREMI UN TASTO P 


-C254 , 191 3, 1 :LINE C 0 , 0 3 - C254 , 191 3 , 2 , B 

ER CONTINUARE" 


1330 LINE C0,191-Y03-C254,191-Y03,2 

1720 A$=INKEY $ : IF A$ = "" THEN 1720 


1340 LINE CX0,03-CX0,191 3 , 2 

1730 CLS : SCREEN 2 , 2 : CLS :C0L0R2 , 1, C 0,0 3 


1350 FOR 1=1 TO N 

-C254, 191 3, 1 :LINE C0 ,0 3 -C254 , 1 9 1 3 , 2 ,B 


1360 FOR X=1 TO 254 

1740 FOR X=1 TO 254 


1370 Y=191-CSY*AC I 3*SINCSX*-KC I 3*X-X03 

1750 Y=191-SYXCFUNCX3-MIN3 


+F C I 3 +Y0 3 

1760 IF Y < 1 OR Y>191 THEN 1780 


1380 IF Y < 1 OR Y >191 THEN 1400 

1770 PSET CX , Y 3 , 4 


;2*F-B 

1780 NEXT X 


1390 PSET CX , Y 3 , 4 

1790 GOTO 1070 


1400 NEXT X 

1800 C0L0R4 , 1 :CURSOR50, 180 :PRlNT"PREni 


1410 NEXT I 

UN TASTO" 


1420 GOTO 1070 

1810 Z$=INKEY $ : I F Z$ = "" THEN 1800 


1430 REM FUNZIONI CONTINUE 

1820 CLS:RETURN 


1440 CLS : T$ = "Fun z io ni continue" 

1830 CLS :END 
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FASI LUNARI 


di MASSIMO TRUSCELU 


La luna ha sempre esercitato un fascino non 
indifferente sull’umanità, non solo fascino, ma anche 
un’influenza notevole nella vita di tutti i giorni. Non 
dimentichiamo ad esempio l’effetto della luna sulle 
maree ed i contadini che ancora oggi, in epoca 
informatica, si affidano alle indicazioni del nostro 
satellite per le loro importanti decisioni. 

Da non sottovalutare inoltre quelle credenze 
popolari, largamente diffuse, che vogliono che le 
gestanti partoriscano solo con la luna nuova. 

Per non parlare poi dell’influenza che a detta degli 
astrologi essa svolge sui nativi di alcuni segni dello 
Zodiaco! 

Liberi di credere o non credere a queste 
affermazioni, il programma presentato consente di 
poter prevedere con una certa precisione le date del 
Novilunio e del Plenilunio per un determinato mese di 
un determinato anno. Tutto il programma è basato 
sul ciclo di rivoluzione della luna attorno al nostro 
pianeta che si compie approssimativamente in 29 
giorni, qualche ora ed alcuni minuti. 

Il computer eseguendo gli opportuni calcoli, a dire il 
vero piuttosto lunghi, consente di identificare anche 
gli anni bisestili di un determinato secolo. 



Il programma scritto in origine per un APPLE II, è 
stato successivamente migliorato e sostanzialmente 
modificato per poter girare sul Sega SC 3000. 


STRUTTURA DEL PROGRAMMA 

5-105 Schermata di presentazione del 
programma. Sfrutta le notevoli 
capacità grafiche del computer per 
disegnare il pianeta Saturno (che 
c’entra poi con la luna? Mah!!) e 
tramite una serie di istruzioni DATA un 
reticolo corrispondente ad una 
immaginaria superficie. 

110-140 Schermata di spiegazione del 
funzionamento del programma. 

145-180 Visualizzazione del menù e scelta 

delle opzioni. 

185-300 INPUT dati e controllo degli stessi (es. 

13 mesi invece di 12 oppure febbraio 
di 30 giorni ecc.). 

305-445 Procedura di calcolo e 


visualizzazione della scritta «è 
bisestile» se l’anno è bisestile. 

460-510 Visualizzazione dei risultati 
concernenti i calcoli. 

Riguardano il Novilunio ed il 
Plenilunio. 

515-555 Richiesta per una eventuale 
visualizzazione del grafico e 
successiva richiesta per una 
eventuale ripetizione dei calcoli. 

560-760 Visualizzazione in alta risoluzione del 
grafico riguardante l’andamento delle 
fasi lunari. 

765-785 Richiesta di ripetizione dall’inizio o 
eventualmente fine del programma. 

790-865 Routine di calcolo per gli anni bisestili 
e richiesta per un eventuale ritorno al 
menù. 


5 CLS :SCREEN 2,2:CLS:C0L0R15,1,C0,0D-C 

15 CIRCLECX,Y],R,8 

255,1913,1:X=190:Y=50 

20 NEXT R 

10 FOR R=1 TO 30 STEP 1 

25 FOR R=50 TO 40 STEP -2 
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30 S=.90 
35 T=. 60 

40 CIRCLECXj Y3, R,11 , .2,S,T 
45 NEXT R 

50 FOR U=1 TO 28 :READ A,B,C,D 

55 LINE CA,B3-CC,D3,5:NEXT U 

60 DATA 0,99,255,.83,0, 104,255,85,0, 109 

,255,90 

65 DATA 0,115,255,96,0,122,255,103,0,1 

30,255,111,0,140,255,121 

20 DATA 0,152,255,133,0,164,255,145,0, 

128,255,159,9,99,20, 190 

25 DATA 20,98,40,190,31,92,65,190,42,9 

6.95.190.95.190.255, 125 

80 DATA 53,95,130,190,64,95,120,190,25 

,94,215,190,86,94,255,125 

85 DATA 92,93,255,159,108,93,255,145,1 

19.92.255.133.130.92.255, 121 

90 DATA 141,91,255,111,155,91,255,103, 
120,90,255,96,199,90,255,90 
95 DATA 255,89,255,85,250,81,255,80 
100 CURSOR10,40:PRINT CHR$C173 ; "Fas i L 
unari" 

105 FOR T=1 TO 1000:NEXT T 

110 BEEP2:CLS JSCREEN 1,1:CLS 

115 COLORII, 1 :CURS0R2,5:PRINT "FASI LU 

NARI" 

120 CURS0R2,9:PRINT "Questo programma 
uisual izza" 

125 PRINT "le fas'i lunari evidenziando 
ll PLENI-" 

130 PRINT "LUNIO ed eventualmente il N 
OUILUNIO." 

135 CURSOR 2,15:PRINT "PER INIZIARE PR 
ENI UN TASTO" 

140 X$=INKEY$:IF X$ = "" THEN 140 

145 CLS :C0L0R3,1:CURS0R15,5 :PRINT "NEN 

U * " 

150 C0L0R2, 1 :CURSOR0, 10:PRINT"A - GRAF 
ICO FASI LUNARI" 

155 C0L0R8,1:PRINT:PRINT"B - ANNI BISE 
STILI" 

160 C0L0R3,1:CURS0R15,21:PRINT "SCEGLI 

II 

165 X$= INKE Y$: IF X$="" THEN 165 
120 IF X$="B" THEN 290 
125 IF X$<>"A" THEN 145 
180 CLS:X$="" 

185 CURSOR0,12:PRINT "INSERISCI IL HES 
E E L’ANNO Cnn,AAAA3" 

190 CURS0R28,14:INPUT "" ;A,B 
195 IF A<=0 THEN 185 

200 IF A>12 THEN PRINT "ERRORE" :BEEP :G 


OTO 185 

205 IF B<1905 THEN CURS0R6, 12 :PRINT"IL 
PROGRAMMA PARTE DAL 1905":GOTO 185 


210 

CLS 



215 

IF 

A= 1 

THEN 

C=0 :S$="GENNAIO" 

220 

IF 

A=2 

THEN 

C=31 :S$ = "FEBBRAIO" 

225 

IF 

A=3 

THEN 

C = 59 :S$="MAR20" 

230 

IF 

A=4 

THEN 

C = 90 :S$ = "APRILE" 

235 

IF 

A=5 

THEN 

C=120 :S$="MAGGIO" 

240 

IF 

A=6 

THEN 

C=151:S$="GIUGNO" 

245 

IF 

A=7 

THEN 

C=181 : S$="LUGLIO" 

250 

IF 

A=8 

THEN 

C = 212 :S$="AGOSTO" 

255 

IF 

A=9 

THEN 

C = 243 : S$="SETTEMBRE" 

260 

IF 

A=ie 

l THEI' 

l C=273:S$="OTTOBRE" 

265 

IF 

A= 11 

THEF 

1 C=304 : S$="NOUEMBRE" 

270 

IF 

A= 12 

1 THEN C=334 :S$="DICEMBRE" 

275 

CURSORe 

1,5 : PRI NT S$,B 

280 

PRINT :PRINT"CONFERMI ? CS/N3" 

285 

CURSOR18,7:Q$=INKEY$:IF Q$="“ THEN 

285 




290 

IF 

Q$ = " 

S" THEN 305 

295 

IF 

Q$=" 

N" THEN Q$="":GOTO 185 


300 GOTO 225 
305 AH=AH+2 
310 2= CB-19003/4 

315 IF INTC23 =2 THEN PRINT "E' BISESTI 
LE" 

320 CURSOR 12,12 : PRINT "UN ATTIMO..." 

325 D=INTCCB-19043/43 

330 E=C365*CB-19023 +D + C3 

335 AB= C 295120/10000 3 + 13 

340 FOR 1=1 TO 50000 

345 H=AB + C 295120/10000 3 

350 AB=H 

355 IF H>E THEN 365 
360 NEXT I 
365 H=H-E 


370 

IF 

A= 1 

THEN 

J =3 1 

375 

IF 

A=2 

THEN 

<_ 

li 

NJ 

OD 

380 

IF 

A = 3 

THEN 

J =31 

385 

IF 

A=4 

THEN 

J =30 

390 

IF 

A=5 

THEN 

J =31 

395 

IF 

A=6 

THEN 

J =30 

400 

IF 

A=7 

THEN 

J =31 

405 

IF 

A=8 

THEN 

J=31 

410 

IF 

A=9 

THEN 

J =30 

415 

IF 

A= 10 

i THEN 

J =31 

420 

IF 

A= 1 1 

THEN 

J =30 

425 

IF 

A= 12 

THEN 

J =31 

430 

-IF 

CN 

il 

<L 

THEN 

440 


435 GOTO 445 

440 IF 2=INT C 2 3 THEN J=29 
445 PRINT :PRINT:PRINT 


80 


LIST 8/9 


















































450 CLS 

455 IF INT Cn 3 =0 THEN D = I NT C 235120/ 1 000 
03 

460 CURSOR0,7:PRINT"NEL MESE DI 

" ;b 

465 BEEP:PRINT 

470 PRINT "IL PLENILUNIO CADE NEL GIOR 
NO " ; I NT C n 3 
475 PRINT 

480 N=INTCD3+15:CC=INTCD3-15:IF N>J TH 
EN N=CC 

485 IF CC <0 THEN 495 

490 PR I NT" I L NOUILUNIO E' NEL GIORNO " 
;CC :PRINT 

495 IF NO CC THEN PRINT "IL NOUILUNIO 
E ' NEL GIORNO " ;N=PRINT 
500 IF N <0 THEN 510 
505 GOTO 515 

510 PRINT "IN QUESTO DESE NON C’E' IL N 
OUILUNIO." :PPINT 

515 PRINT "UUOI IL GRAFICO ? CS/N3" 

520 F$=INKEY$:IF F$="" THEN 520 

525 IF F$="S" THEN 560 

530 IF F$0"N" THEN 515 

535 IF F$="N" THEN CLS • CURSOR0 , 9 :PRI NT 

"BATTI 9 PER USCIRE , UN TASTO":PRINT" 

QUALSIASI PER TORNARE AL DENU ' " 

540 I$=INKET$:IF 1$="" THEN 540 

545 IF I $ <> " THEN 145 

550 IF I $="@" THEN CLS :CURS0R12, 12 :PRI 

NT"FINE PROCEDURA?" :BEEP 

555 END 

560 CLS :SCREEN2,2: COLORI, 1, C0,03-C255, 
1913,1:CLS 

565 LINE C0, 1603-C 120, 1603 ,11 

570 LINE C 8 , 1603-C8,03, 11 

575 T = CINTCn3*82/203-l 

580 AD=N* C82/203 : IF AD>255 THEN AD=255 

585 IF CC> 0 THEN AE=CC*82/20 
590 LINE CT,1593-CT,03,2 
595 Y=0 

600 FOR X=0 TO 120 STEP 2 

605 Y=Y+ 1 3/20 

610 IF Y> =80 THEN 625 

615 LINE CX,Y3-CX,803,5 

620 NEXT X 

625 Y =0 

630 FOR 2 = T TO 0 STEP -2 
635 Y=Y+1 3/20 
640 IF Y> =80 THEN 655 
645 LINE C 2,Y 3-C 2 , 80 3 , 8 
650 NEXT 2 


655 Y=80 

660 IF X> = 1 20 THEN 690 

565 FOR U=X TO 120 STEP 2 

670 Y=Y+ 1 3/20 : I F Y> = 160 THEN Y=160 

675 IF Y <=0 THEN Y=0 

680 LINE CU,803-CU, Y3,1 

685 NEXT U 

690 FOR U=2 TO 0 STEP -2 
695 IF U<=0 THEN U=0 
700 Y=Y-13/20 
705 IF Y<=0 THEN Y=0 
710 LINE CU,Y3-CU,803 ,14 
715 NEXT U 

720 CURSOR 1 6 , 176 :PRINTCHR$C 163 ; "PLENIL 
UN IO IL " ; I NT C M 3 ; -NOUILUNIO IL " *,N 
725 P=23 

730 IF NOCC THEN 740 
735 GOTO 760 
740 IF CC>0 THEN 750 
745 GOTO 760 

750 CURS0R16,184:PRINT "L’ALTRO NOUILU 
N I 0 I L " ; CC 
755 P=24 

760 FOR G=0 TO 121.89 STEP 4.062962963 
:LINE CG,1683-CG,1723,15:NEXT G 
765 CURSOR1 6,P*8: PR I NT "UUOI TORNARE A 
L (1ENU ' ? CS/N3" 

770 RR$=INKEY$:IF RR$="" THEN 770 
775 IF RR$="S" THEN CLS:SCREEN l,l:GOT 
0 145 

780 IF RR$0"N" THEN 765 
785 CLS :END 

790 SCREEN 1 , 1 :CLS :CURSOR10, 2 :PRINT "S 
CEGLI IL SECOLO" 

795 CURSOR 16,4:1NPUT "";A 
800 C= C A* 1 00 3-96 
805 CLS 

810 FOR C=0 TO CC + 503 STEP 4 
815 PRINT C :NEXT C 

820 CURSOR0,20 : INPUT "PREDI <CR> PER G 
LI ALTRI ANNI" *,NN$ 

825 CLS 

830 FOR F =C TO CC + 503 STEP 4 
835 PRINT F:NEXT F 

840 CURSOR0 , 20 :PR INT "UUOI TORNARE AL 
DENU' ? CS/N3" 

845 22$=INKEY$:IF 22$="" THEN 845 

850 IF 22$="S" THEN 145 

855 IF 22$ O"N" THEN 840 

860 CLS : CURSOR 1 2 ,12:PRINT "FINE PROCED 

URA2 " 

865 END 
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FERMA IL TOTALE 

di ENRICO FABRIZI 



Ecco un utile programma per esercitarsi a risolvere 
mentalmente operazioni aritmetiche. I calcoli da 
eseguire attraversano lo schermo dall’alto in basso: il 
risultato va impostato senza premere il tasto «CR»; il 
punteggio totalizzato dipende dalla rapidità della 
risposta e dalla velocità di «caduta» dei calcoli. 

I numeri su cui eseguire le operazioni possono 
risultare troppo grandi (se, ad esempio, il 
programma viene utilizzato da uno studente 


elementare): potete comunque cambiarne il valore 
massimo a vostro piacere modificando i fattori di 
moltiplicazione dei numeri casuali nelle righe da 
5100 a 5400. L’istruzione «X=INT(RND(1) 499+1)» 
alla riga 5100 determina il primo addendo in una 
somma, come numero compreso tra 1 e 499; se al 
numero 499 sostituite ad esempio il 50, il primo 
addendo sarà compreso fra 1 e 50. 


STRUTTURA DEL PROGRAMMA 

40-200 Presentazione grafica, titoli e 

istruzioni 

210-220 Stampa cornice 

230-240 Scelta livello di difficoltà 

250 Pulizia schermo e controllo del 

numero di calcoli eseguiti 
260 Scelta dell’operazione da eseguire 

con termini scelti e calcolati nelle 
subroutines 5100-5400 

270-300 Spostamento dell’operazione sullo 

schermo e acquisizione del numero 
impostato da tastiera 

310-320 Confronto del numero impostato con 

il risultato del calcolo 
330 Aggiornamento punteggio 

340-370 Termine gioco 

5000-5030 Subroutine musicale 


5100 Subroutine somma 

5200 Subroutine differenza 

5300 Subroutine prodotto 

5400 Subroutine quoziente 

VARIABILI 

K,J Contatori loops 

TS Titoli e istruzioni 

PT Punteggio 

S Numero operazioni eseguite (25) 

Z Livello di difficoltà 

A Scelta casuale del tipo di calcolo da 

eseguire 

P Posizione di comparsa 

dell’operazione sullo schermo 
R,RS Risultato 

PS Risultato impostato da tastiera 

B Controllo punteggio da assegnare per 

ogni calcolo 
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cs 


Numeri e segni aritmetici del calcolo 
da eseguire 


ZS 


Singolo numero impostato sulla 
tastiera 


-.0 REn* ferma il totale * 

20 REM* BT E . FABRI 21 -ì 985 * 

30 REH* SHARP n*-700 * 

40 COLOR,,6,0:TEMPO7:PRINT"0":CURS0R2,2: 

PRINT"5x8=":FORK=1TO2000 sNEXT:CURS0R6, 2 : 

PRINT"40":FORK=1TO2000sNEXT 

50 F0RK=3T010 ; CURS0R6,K-1 SPRINT" ” :PRIM 

TTABC6)"40 M :GOSUB5000 sNEXT 

60 FORK=7T01 5 sPRINTTABCK- 1 3" HI " :PRINTTAB 

CK3"K)40" :GOSUB5000 sNEXT 

70 F0RK=11TQ1 7 sPRINTTABC153"Ifl "sPRINTTA 
BC 153"40":GOSUB5000:NEXT 

80 F0RK= 1 5T01 0STEP-1 :PR I NTTABCK+ I 3” DO " :P 
PINTTABCK-1 3"G140" :GOSUB5000sNEXT 
90 FORK= 1 7T08STEP-1 :PRINTTABC93"G) " :PRI 
NTTABC93"EE40":GOSUB5000:NEXT 
100 F0RK=9T04STEP-1 :PRINTTABCK+1 3 "ffl " :PR 
INTTABCK-1 3 ,, [D^0** :GOSU65000sNEXT 
1 10FORK=8TO20:PRINTTABC33"IB " sPRINTTAB 
C33"40":GOSUB5000=NEXT 

120 F0RK=4T013:PRINTTABCK-1 )"0 " -PRINTTA 
BCK3 "EB40" :GOSUB5000 :NEXT 
130 FORK=l 9T01 3STEP- 1 sPRINTTABC 1 33 "(E : 

PRINTTABC 1 33 "(BI240" :&OSUB5000 sNEXT 
M0 COLOR, ,0,6:CURSOR29,3:PRINT ,, C9FE ’ :PR 
INTTABC293" "sPRINTTABC273 "C9FE C9FE " : 

PRINTTABC273" C5C7 " :PRINTTABC273" C5 
C7 - :PRINTTABC253"C9FE C5C7 " sPRINTTA 
BC253 " C5 C5C7 ’’ 

150 PRINTTABC253 " C5 C5C7 C8C8C9 ":PRI 
NTTABC253" C5 C5C7 C8C9 " :PRINTTABC25 
3" C5 C5C7 C9 F5" :PRINTTABC253 " C4C4 
C4C4C4 F5":PRINTTABC253" F5" :P 

RINTTABC253 ” C4C4C4C4C4 F5":PRINTTABC25 
3" 

160 PRINTTABC253"£9 F5." SPR1NTTABC26 

3 " C3C3C3C3C3C3'* :PR INTTABC 253 " C8C4C4C4C4C 
4C4C8C8 " :FORK=l T04 SPR1NTTABC253" 

" :NEXT 

170 COLOR, ,6,0:CURSOR12, 1 2 :PRINT"EFC3C3F 
0'' :PRINTTABC 123"C540C7 ‘ :PRINTTABC 12 3 "ECC 
4C4DA' r 

180 T$="FERHA IL TOTALE 1 ' :CURS0R2, 4 :FORK= 
i TOLENCT $ 3:PRINTniD$CT$, K, 13 ;:P0KE55457+ 
K, 240 :GOSUB5010sNEXT 

190 T$="di E.FABRIFI-1985":CURS0R2, 7:FOR 
K=1 TOLENC T$ 3SPRINTC 7, 2 3M ID$ C T$,K, 1 3 5 :GOS 
UB5010:NEXT:FORK=1TO3000:NEXT SPRINT 
200 T$=" Indoo ìna, o. I piu' prestopos s i b i I e 
i il r i su I tatodeI I e operazioni.":CONSOLE 

1 9,4, 0, 23 :PR1NT "0*' :F0RK=1 TOLENC T $ 3 SPRINT 
T 7,33niD$CT$,K, 13 ; -FORJ = 1 TO50 sNEXTJ ,K sCO 
NSOLEsF0RK=1TO3000:NEXT 


210 PRINT"0":F0RK=1T038 sCOLORK,1 ,, 3sNEXT 
’F0RK=2T023 SC0L0R38, K, , 3 sNEXT:F0RK=37T01 
STEP-1 sCOLORK,23, , 3sNEXT sF0RK=22T02STEP- 
1 SCOLORI ,K, ,3sNEXT 

220 F0RK=22T015STEP-1 sC0L0R27,K, ,3sNEXT s 
F0RK=28T037sCOLORK,15, ,3sCOLORK, 19, ,3:NE 
XT sFORK=1 4T0 11STEP-1 sC0L0R32,K, ,3sNEXTsF 
0RK=33T037sCOLORK,11, , 3sNEXTsCURSOR30, 20 
'PRlNT"Punt i :PRINTTABC363 J, B0" 

230 CURS0R3,2I :PRINT"ScegIi il livello"! 
PRINTTABC33"di difficolta' C1'93" :PT=0:S 
-25 

240 GET2 s IFH=0THEN240 

250 C0NS0LE2,21,2,25:PRINT"B"SCONSOLE :IF 
S=0THEN340 

260 A=INTCRNDC1 3*4 + 13 S0NAG0SUB5100,5200, 
5300,5400 

270 P=I NT CRNDC 13*17+23 :R$=STR$CR3 sp$=" !> : 
B=20 :FORK=3T022sCURSORP,K-1 SPRINT" 

- s’PRINTTABCP3C$ 

280 F0RJ = 1TOC 1 0-23*3 s&ET2$ 

290 P$=P$+2$ :CURS0R34, 1 3 SPRINTP$ : IFLENCP 
$3=LENCR$3THEN31 0 

300 NEXTJ :B=B-1 sNEXTK SGOTO330 

310 1FP$=R$THENCURSOR30 , 17sPRINT"ESATTO" 

'GOSUB5010:PT=PT+CB*23S&OTO330 

320 CURSOR30, 1 7 :PRINT"ERRATO" sGOSUB5030 *- 

CURS0R34 , 13SPRINT" ” .‘GOTO280 

330 CURS0R29,22 .PRINTUSING"*#######";PT s 

GOSUB5020:CURS0R34 , 1 3 s PRINT" " : CURS0R3 

0,17:PRINT" " :S=S-1 SGOTO250 

340 CURS0R2,19:PRINT[0 , 63"II gioco e' te 

^minato" :PRINTI2,7]TABC23 "BlPer un'a 1 1 ra 

pant ita <Y>" 

350 GETK$ : IFK$="" T HEN350 

360 IFK$="Y"THEN210 

370 PRINT"0":END 

5000 MUSIC"+C1Gl"sPETURN 

5010 nUSIC"+C1" -RETURN 

5020 (lUSICC 1D1E1F1G1A1B1 " sPETURN 

5030 nUSIC"-F5"sPETURN 

5100 X=INTCRNDC1 3*499+1 3 s r= INT CRNDC1 3*49 
9+1 3 !R=X+T :C$=STR$CX3+"+"+STR$CY3+"=" sPE 
TURN 

5200 X= I NT CRNDC1 3*499+1 3 s T=I NT CRNDC1 3*CX 
-13 + 13 :P=X-Y :C$=STR$CX3+"-"-STR$CY3+"=" : 
RETURN 

5300 X= INTCRNDC13*12+13 :Y=INTCRNDC 13*12 + 
i 3 :f?=X*Y sC$=STR$CX3 + "x" -*-STR$CY3 + "-" sRETU 
PN 

5400 X=INTCRNDC13*90+13 :T=INTCRNDC1 3*10+ 
13:R=X sX=X*Y :C$=STR*CX3+" : "-STR*C Y3 + " = " : 
RETURN 
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BIGLIETTI DA VISITA 

di ENRICO FABRIZI 


QUESTO PROGRAMMA È DISPONIBILE SU CASSETTA 
PRESSO LA REDAZIONE. 

PER LE ISTRUZIONI DI ACQUISTO CONSULTARE LA PAGINA 
DI APERTURA DELLA SEZIONE SOFTWARE. 


Quante volte avrete ammirato i biglietti da visita del 
vostro papà! 

Con il programma che presentiamo potrete utilizzare 
il vostro Sharp MZ-731 per stampare a vostro 
piacere biglietti da visita personalizzati e a colori, che 
non avranno nulla da invidiare a quelli dei più stimati 
professionisti. 

Un’occasione, inoltre, per inviare ai vostri amici 
simpatici ed esclusivi auguri di Natale e Pasqua. 



STRUTTURA DEL PROGRAMMA 


geometrica 

10-120 

130-160 

Titoli ed istruzioni 

Scelta del tipo di cornice 

1200-1250 

1300-1350 

2000-2010 

Subroutine stampa cornice natalizia 
Subroutine stampa cornice pasquale 
Subroutine musicale 

170-180 

190 

200-230 

Immissione delle stringhe da 
stampare e controllo della loro 
lunghezza 

Immissione del numero di biglietti da 
stampare 

Controllo dei dati inseriti ed eventuali 

2020 

2030-2050 

Subroutine ritardo esecuzione 
programma 

Subroutine arresto e ripresa 
esecuzione programma mediante 
pressione di un tasto 

240 

correzioni 

Controllo stampa cornici 

VARIABILI 


250 

Stampa delle prime tre stringhe a 4 

K,J,H,S 

Controllo loops 


colori 

TS 

Titoli e messaggi che compaiono un 

260 

Stampa delle prime ultime tre 


carattere alla volta 


stringhe in nero 

CS (4) 

Nome cornice 

270-300 

Opzione per la stampa di altri biglietti 

AS (5) 

Stringa da stampare 

1000-1040 

Subroutine stampa cornice greca 

Z, ZS 

Controllo istruzioni «GET» 

1100-1130 

Soubroutine stampa cornice 

N 

Numero di biglietti da stampare 


10 REn*** BIGLIETTI DA UISITA *** 

20 REd*** BT E.FABRI2I-1385 *** 

30 REM*** SHARP 112-731 *** 

40 CONSOLE:TEHP07:PRINTC,6]"B“:F0RK=2T03 
7:C0L0RK,2,,2:NEXT:F0RK=3T022:C0L0R37, K, 
j 2 :NEXT:F0RK=36T02STEP-1 :C0L0RK,22,,2:NE 
XT:F0RK=21T03STEP-1:C0L0R2,K,,2:NEXT 
50 T$="BIGLIETTI DA UISITA":CURS0R10,7:F 
0RK=1 TOLENCT^D :PRINT[7,0]I1ID$C T$, K, 1 D ; =G 
OSUB2000:NEXT:T$="dI E.FABRI2I-1985":CUR 
SOR 11,11 :F0RK=1T0LENCT3O:PRINT[0,43dID$C 
T$,K,1 :] :GOSUB2000:NEXT 


60 T$="Questo programma r iehi g de" :CURS0R 
7, 1 4 :FORK = 1 TOLENC T$ 3 :PRINTC2,6 3ldID$CT*, K 
s 1 3 J JGOSUB2020 :NEXT :T.$=" I a s Lampante pio 
iter a colori" :CURS0R5, 16 :F0RK=1TOLENCT$ 
3 :PRINTC2,6]niD$CT$,K, 1D J:GOSUB2020:NEXT 
:GOSUB2030 

70 C0NS0LE3,1 9,3, 34 :COLOR,,7, 3 :PRINT"@": 
PRINTTABC83"Questo programma ti consente 
" :PRINT"ESBdI stampare biglietti da u i s 
ita" :PRINT"EE0personaIizzati, con una el 
e g ante " 
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80 PRINT"BE0cornice che potrai scegliere 
tra" :PRINT"EEB I è quattro disponibili.": 
GOSUB2030 

90 COLOR, ,0,5 SPRINTA" :PRINTTABC73"EfflNe I 
biglietto potrai inser i re":PRINT"BB5 st 
ringhe di caratteri : le pr i rne " :PR I NT "B03 
terranno stampate a caratteri" 

100 PRINT"0Bgrandi su righe diuerse,le a 
l tre":PRINT"E0due a caratteri p i eco I i, i n 
fondo":PRINT"B0aI biglietto, sulla stes 
sa r i ga. " :GOSIJB2030 

110 COLOR, , 3, 7 ••BRINT''^" :PRINTTABC73 "Se u 
olete editare di scriuere":PRINT"B0una s 
tringa, inserite al suo po-" :PRINT"ESsto 
una coppia di uirgolette." 

120 PRINT"EEB0000O9n ! stringa può' con 
tenere " :PRINT"B0un massimo di 30 caratte 
ri ." :GOSUB2030 

130 DIdC$C43,A$C53:F0RK=1T04:READC$CK3:N 
EXT 

140 DPTA GRECA,GEOMETRICA,NATALIZIA,PASQ 
UALE 

150 COLOR,,7,1:PRINT“@0Sceg Ii la cornice 
:0":F0RK=1T04:PRJNTTAB(6D"E";K- ";C$C 
K3:NEXT 

160 GET2:IFC2 = 03-*-C2>43THEN160 

170 PRINT"®0Inseri sei le s tringhe: " :FORK 

= 1 T05 

180 PRINT"E";K;:INPUTA$CK3 : IFLENCA$(K3 3> 
30THENGOSUB2010:PRI NT"fflffiEffl":GOTO180 
190 NEXT:CURS0R3,17:PRlMT"Quant i bigliet 
ti tuoi stampare":CURS0R33,17:INPUTN 
200 PRINT"@0Corn i ce scelta: " ;C$C23 :PRIN 
T"BE0Str inghe :ffl" :FORK= 1 T05 :PRINT"B@00" ;A 
$CK3 :NEXT:PRINT"E0BigI ietti da stampare: 

" ;N:PRINT"EEBBUuo i fare correzioni? CS/ 
N3 " 

210 GET2$:IF2$="S"THEN150 
220 IF2$="N"THEN240 
230 GOTO210 

240 dODEGR :F0RK=1TON.‘0N2G0SUB1000,1100,1 
200, 1 300:F0RJ=1 T03 :IFA*CJ 3 = " "THEN260 
250 FORH=0TO3:PCOLORM:nOUEC480-LENCA$ C J3 

3*123 /2+H, - C 25+H+J *503 :GPRINTC1,0],A*CJ3 
:MEXTH 

260 NEXTJ:PCOLOR0:nOUE50,-225:GPRINTL0,0 
] , A$C 4 3 :riOUE445-LENCA$C5 3 3*6, -225 :GPR I NT 
[0,03,A$C53 

270 HOUE0,-350:HSET:NEXTK:PRINT"0":T$="P 
er stampare altri b i gI i etti " :CURS0R6,9:F 
0RK = 1 T0LENCT$3:PRINTdID$CT$,K, 1 3 5:G0SUB2 
000 : NEXT:T$="prem I <T>":CURS0R15, 13:F0R 
K=1 TDLENCT$3 :PRINTniD$(T$, K, 1 3 ,' :GOSUB200 
0:NEXT 

280 GET2*:IF2*=""THEN280 


290 IFE$="T"THEN150 

300 PRINT"E" : CONSOLE CURSORI 4, 15:PRINT"A 
RR IUEDERCI ":CURSOR0, 23 :END 
1000 REd***C0RN ICE GRECA*** 

1010 FCRJ=0TO3:PCOLORJ:nOUE14+2*J,-2*J:R 
LI NE30,0:F0RH=1 T08 :RLINE20,0,0,-20, -1 0,0 
,0,10,30,0,0,-10,-10,0,0,20,20,0:NEXTH:R 
LINE30,0 

1020 RL INE0,-30:F0RH=1T04:RLINE0,-20,-20 
,0,0,10,10,0,0,-30,-10,0,0,10,20,0,0,-20 
:NEXTH:RLINE0,-30 

1 030 RL INE-30,0:FORH= 1 T08 :RLINE-20,0,0,2 
0, 10,0,0,-10,-30,0,0,10,10,0,0,-20,-20,0 
:NEXTH.*RLINE-30,0 

1040 RLINE0, 30:FORH=1T04:RL1NE0,20,20,0, 
0,-10,-10,0,0,30,10,0,0,-10,-20,0,0,20:N 
EXTH : RL INE0,30 :NEXTJ:RETURN 
1100 REd***CORNICE GEOMETRICA*** 

1110 FORJ=0TO3:PCOLORJ:F0RH=10TO450STEP2 
0 :dOUEH+J,-C5+J 3 :G0SUB1 1 30 :dOUEH+J,-C20+ 
J 3 :GOSUB 1 130:NEXTH 

1 120 FORH= 10TO450STEP20 :dOUEH+J , - C265+J 3 
:G0SUB1 130 :MOUEH+J ,-C'280 + J 3 :G0SUB1 130:NE 
XTH:NEXTJ : RETURN 

1130 RLINE5,5,5,-5,-5,-5,-5,5:RETURN 
1200 REd***CORNICE NATALIZIA*** 

1210 FORJ=0TO3:PCOLORJ:FORM=0TO384STEP96 
:nOUÉHfl2+J*24,0:G0SUB1250 :NEXTH 
1220 FORH=30TO1 50STEP1 20 :f10UE468, -CH+J*3 
03 : GOSUB 1 250 :NEXTjH 

1230 FORH=480TO96STEP-96:dOUEH-12-J*24,- 
270 :GOSUBl250:NEXTH 

1240 FORH=240TO30STEP-120 :dOUE12,-H+J*30 

:GOSUB1250:NEXTH:NEXTJ: RETURN 

1250 RLINE0, -25 :RdOUE-5,20:RLINE5,5,5,-5 

:RdOUE- 1 2,-7:RLINE7,7,7,-7:RdOUE-17,-8:R 

LINE10, 10, 10,- 1 0 :RETURN 

1300 REd***C0RNICE PASQUALE*** 

1310 FORJ=0TO3:PCOLORJ:FORH=0TO360STEP12 
0 :dOUEH+l4+J*30,-2 :G0SUB1350:NEXTH 
1320 FORH=30TO150STEP120 :dOUE464,-CH+2 + J 
*303 : GOSUB1 350:NEXTM 

1330 FORH=480TO120STEP- 1 20:dOUEH-16-J*30 
,-242:G0SUB1350 :NEXTH 

1 340 FORH=240TO30STEP- 1 20 :dOUE14,-H-2 +J* 
30 :G0SUB1350:NEXTH:NEXTJ:RETURN 
1350 RLINE0,2,2,0,0,-2:RdOUE-6,0:RLINE10 
,0,3,-3,0,-12,4,-6,-24,0,4,6,0,l2,3,3:Rd 
0UE4, -2 1 :RLINE0,-2,2,0,0,2 :RETURN 
2000 dUSIC"+C0" :RETURN 

2010 dUSIC" + C0C0+C0C0+C0C0+C0C0": RETURN 
2020 F0RS=1 TO50:NEXTS:RETURN 
2030 CURS0R4,20 :PRINT"Premi un tasto" 
2040 GET2$: IF2$ = "" THEN2040 

2050 RETURN 
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IDENTIKIT 


Ecco un programma che vi darà 
la possibilità di giocare e 
divertirvi - magari istituendo 
delle piccole gare - con i vostri 
figli, nipotini, cuginetti o 
fratellini minori. 


«Il computer è un sussidio didattico». 

Questa è più o meno una delle frasi che si suole dire 
nel tentativo di giustificare la somma, spesso alta, 
spesa per acquistarne uno. 

Al momento di scegliere il relativo software però 
l’acquirente può trovarsi in difficoltà: i programmi 
che si trovano, infatti nella sezione educativa dei vari 
cataloghi, generalmente non sono altro che dei tests 
(a volte neanche ben curati). 

Non ci si meravigli dunque se molti insegnanti, 
genitori e diretti interessati continuano ad essere un 
po’ scettici! 

L’odierna didattica è ormai orientata verso un tipo di 
studio che, oltre alla teoria, prevede da parte dello 
studente un coinvolgimento a livello pratico; non è 
più una novità entrare in una classe di scuola 
elementare o media inferiore e trovarvi gli alunni alle 
prese con recite, supporti audio-visivi, giochi, 
problemi da risolvere in gruppo. Non è più 
necessario infatti, sempre secondo le più moderne 
teorie, che l’insegnante corregga gli errori commessi 
dal singolo alunno ogni volta che se ne presenta 
l’occasione. È necessario invece che l’alunno abbia 
l’opportunità di auto-correggersi comunicando con i 
propri compagni e scambiando quindi con loro le 
proprie esperienze al fine di verificarle. 

La possibilità di comunicare con l’«altro» è dunque 
molto importante ed in questo senso il computer 
offre grandi opportunità. 

Il programma presentato nelle seguenti pagine - 
IDENTIKIT - può essere preso come un esempio di 
programma applicativo volto a tale scopo. Impostato 
come un gioco ed esulando dunque da un contesto 
prettamente scolastico, offre al piccolo utente la 
possibilità di esercitare, divertendosi, le proprie 
capacità di memoria visiva ed il proprio spirito di 
osservazione. 

Seguendo la falsa riga di versioni naturalmente più 
sofisticate utilizzate dalle Forze di Polizia di tutto il 
mondo, il programma, una volta lanciato, visualizza 
sulla sinistra dello schermo, un volto dalle 
caratteristiche casuali sotto il quale compare la 
scritta: 

«Questo è il nostro amico Gigi. Guarda attentamente 
il suo viso perché dovrai aiutarmi a ridisegnarlo». 


1 

REM 

« « 

I D 

2 

REM 

no 


3 

REM 

« « 


4 

REM 

«« 


5 

R E M 

«o 


6 

REM 

» « 

SE 

7 

5 

20 

REM 

REM 

BOROER 

2 : 1 


POKE 

23600 


e N T I K I T 

2X-SPECTRUM 
16K / 4SK 

RIE DIDATTICA 


« « 
« « 
«« 
» « 
« « 
«« 


L5 
TO 1O00 
50 IF RE 

"La sua ”; 

50 PRINT 
IF PE 


PAPE 


R 7 : INK 1 : C 

LET C=12: GO 


70 

"Gigi " ; : 

50 PRINT 
155 PRINT 
u a r e . 

160 
60 

165 RETURN 


EK 236S9 = C THEN PRINT 
RETURN 
"I suoi 
EK 23650= 

RETURN 
"Gigi "; 

"Premi 


RETURN 
HEN PRINT 


RETURN 

per c o n tin 


IF INKE V « * > "c 


THE N G O T O 


160 D 
LET 

P I : N E 
200 L 
=5*3GN 
220 L 
ET c i = 
25© L 
ET O r = 
270 L 
ET b f = 

200 L 
ET fc- r = 


IH 
b ( J 

XT 
ET 
< b 

ET 
b ( I 

ET 
b (5 

ET 
b < 7 

ET 
b <: 0 


b(0) : F 
) =INT ( 

J 

X =32 : L 

•il) - 2 ) : 

C a = b ( 2 1 

NT PI); 
O C = b < 4 ) 

) : GO 5 
n a = b f 6 i 

) -5GN P 

l a = b ( 3 ) 

) -5GN P 


OR J = 5GN PI T O 0 
R N D *INT PI) +5GN 

ET y =155 : LET v i 
GO SUB 5030 
GO SUB 5130: L 
GO SUB 5230 
: GO SUB 5330: L 

IJB 54-30 

GO SUB 5530 L 
I GO SUB 5630 
GO SUB 5730 : L 
I GO SUB 5630: 


RETURN 

500 PRINT AT NOT PI,C ;" IDENTIKI 
T ; AT 16, NOT PI; "Questo e il nos 
t r o amico Gigi. Guarda il suo v 
* = o attentamente dopo do v r ai ai u 
t ^ r m i a r i d i s e - g n a r t o in ogni 
dettaglio.": print go sub y 

PR INT "Per dirmi qual 
l voltodevo disegnare 

questeparo te : " 

T MB a ; *’ U i S O " ; TA6 20 ; " 
* ; "Cape t ti " ; TRB 20 : "Ba 


550 

CLS 

e t r 

a t t o d 

u s a 

una d 

56 0 

PR INT 

N a •= o 

" ; TRB 

f fi" 
570 

PRINT 


. " L 

B a r 
56 
•: a 
g n a 
e g t 
o : '• 
50 
d i 
a 
o 

iti 
6 1 
r e 
s c 


TRB 8; "Cig t 
abbra";TRB 6 ; "Occhi 
ba": PRINT GO SUB 


i a 


,TRB 20 
'AB 20 ; " 


0 CLS 
m b i a r e i 
ti, devi 
i a g g e t t 


PRINT -Per 
trattidel 

inveceind 
i eten-cat 


dir mi come 
volto dise 
care uno d 
di seguit 


0 P RINT : 
pi eco lo 
tungh i 
stretto 
tondi 
0 PRINT 
i vocaboli 


PRINT Grande gran 

piccolipiccote tung 
corta corti i a r g 

fotte fotti sott 

tondo" 

PRINT " Per rivede 
a tua disposizione 


rivi RIUTO . Quando il di 

ti sembra com— pteto scrivi 

OHPhRR’ : io con — trotterò' se 


l ' I 
s e g n 
B y : 

700 
PILO 
O " : 
"Ni 
b a r 
7 10 
ndi " 
R I NT 
o l t e 
TO 
" r P 
T •• c 

o 

720 

740 
R J = 


d e 


a t 
GO 


d i 
SU 


O E NT IKIT corri -spon 
o originate." PRINT 
RETURN 

PRINT RT NOT PI,NOT 
GHIRMO: " PRINT ''Cap 
R RINT "Ciglia occhi 
so baffi": PRINT 

ba : PRINT "Orecchie 
P 5™ T PRINT "Gran 

: P RINT "Largo Pie 

"Lunga Lunghi": 

Folti": PR INT "" 

ridi"; PRINT "Piccole 
RINT "Sotti ti Strett 
orta Co r t i : pri 

COMPARA "• 

PRINT RT 15, NOT PI;: GO SUB 


PI;"RIE 
etti vis 
": PRINT 
"La b b r a 

de G r a 

colo": P 

PRINT "F 
Tondo 
Piccoli 
O " " : PRIN 

NT "RIUT 


PR INT 
> G N PI 


O = elenco 


RT NOT PI, NOT PI. : FO 

TO 15: PRINT " 

NE XT j: PRINT " «RIUT 
parole)": RETURN 


1000 LET Z =50 : LET i =1110: GO SU 
B JL50: GO SUB 500 LET X =150 : LE 
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T Of =NOT PI: L ET b f =NOT PI L ET 
br=NOT PI: L ET ci=NOT PI: LET vi 

=-10 LET narNOT PI: LET OC=NOT 
PI: LET La=NOT PI: LET C3=NOT PI 

1100 CLS BORDER 6: PRINT RT 1 

3,N OT PI; ’ ' (RIUT O = elenco parole 
) " : LET d $ = " " 

1110 let e $ = d $ input "Istruzion 


i P r 

ego : 

" , d « : 

LET 

d $ 

= d $ + 

* * 

1112 

LET 

c o rn = NOT 

P I : 

PRINT RT 16 

NOT 

P I ; 

1 * 





1115 

•i 

H 

a 

Ù. 

NT RT 

14 , 

NOT 

P i ; 

d % ( TO 2 

1120 

IF 

d $ ( TO 

4 J 

= " V 

i £. o " 

THEN G O 

SUB 

5010 LET 

V i 

= N OT PI 

: LET h = 

IO : 

GO 6 

U B 5 0 3 

0 

GO 

TO i 


1130 

IF 

d * ( TO 

7 !» 

= " c 

a p e l 

li" THEN 

GO 

6 U B 

5 1 10 : 

LET 

c a 

= 2 : 

LET h =20 

GO 

3 U B 

5 130 : 

GO 

TO 

i 


114-0 

IF 

d $ ( T O 

6 !» 

= " c 

ig li 

a" THEN 

G O S 

UB 5 

2 10 : L 

ET 

ci = 

2 : G 

O SUB 52 

30 : 

LET 

h =30 : 

GO 

TO 

i 


1150 

IF 

d $ ( TO 

5 ) 

= " o 

CChi 

" THEN G 

O s u 

B 5 3 

10 : LET O 

C =2 

: GO 

SUB 533 

0 : L 

ET h 

= 40 : G 

O T 

O i 



1 155 

IF 

d $ ( TO 

6 !» 

= " o 

r e c c 

hie" THE 

N G O 

SUB 

54 IO 

LET h 

= z : 

LET o r =2 

GO 

6 U B 

5 4 3 0 : 

GO 

TO 

i 


116 0 

IF 

d $ ( TO 

4 :• 

= " n 

a s o " 

THEN GO 

3 U B 

5 5 1 

0 : LET 

n a 

= 2 : 

GO 

SUB 5530 

: LET h= 

•=■0 : GO 

TO 

i 



1 17 0 

IF 

d $ ( TO 

5 :• 

= " b 

affi 

" THEN G 

O S U 

B 5 6 

10 : LET b 

f = 1 

GO 

SUB 563 

0 : L 

ET h 

= 70 : G 

O T 

O i 



1 16 0 

IF 

d * ( T O 

6 :» 

= " l 

a b b r 

a " THEN 

GO S 

U B 5 

7 1 0 : L 

ET 

l 3 = 

2 : GO SUB 5 7 

3 0 : 

LET 

h =60 

GO 

TO 

i 


1120 

IF 

d $ ( TO 

5 :• 

= " b 

a r b a 

" THEN G 

O S U 

B 56 

10 : LET b 

r = 1 

: GO 

S U E- 5 6 3 

0 : L 

ET h 

= 20 : G 

O T 

O i 



1200 

IF 

d $ ( TO 

6 ) 

= " g 

r a n d 

i " OR d $ 

( T O 

•=■ ) = 

" g r a n d 

e " 

OR 

d $ ( 

T O 5) = " l 

a r 9 o 

" TH 

E N L ET 

c o 

m = s 

G N P 

I : IF h < 

> i=:0 

THE N 

G O T O 

2© 

00 + 

h 


12 10 

IF 

d $ ( TO 

6 :i 

= " l 

u n g h 

i " OR d $ 

( TO 

5 1 = 

• 1 l u n g a 

" T 

HEN 

LET 

C O m = 1 : 

IF h 

< :> 10 

H (4 D h 

< > 4 

0 R 

ND h 

< > 70 THE 

N u O 

TO 

2000 + h 





1220 

IF 

d $ ( TO 

5 ) 

= " f 

olle 

" OR d % ( 

TO 

5) = " 

f O l t i " 

TH 

EN 

LET 

C O nfi = 1 : I 

F h < 

>20 

R N D h < 

.> 40 

TH 

EN GO TO 200 

0+h 







12 30 

IF 

d $ ( T O 

5 j 

= " t 

ondi 

" OR d % ( 

TO 

5 ') = " 

t. o n d o " 

TH 

EN 

LET 

C O m = 1 : I 

F h = 

40 OR h =70 

TH 

EN 

GO T 

O 2000+h 

1240 

IF 

d $ ( T O 

7 :• 

= " P 

i C C O 

lo" OR d 

* ( T 

O 7 ) 

= " p 1 c c 

o l e 

" O 

R d $ 

( TO 7)= 

" p 1 C 

CO li 

" THEN 

LET c 

o m = - 

SGN PI: 

IF h 

< >20 

THEN 

GO 

TO 

<=:O00 

+ h 

1250 

IF 

d $ ( TO 

7 ) 

= " S 

otti 

li" OR d 

* ( T 

o 7 :• 

= " s t re 

tto 

" O 

R d $ 

( TO 5) = 

"cor 

t a " 

THEN L 

ET 

c o m 

= — 5G 

N PI: IF 


h<>20 THEN G O TO 2000+h 

1260 IF d$( TO 5)="COrti" THEN L 

ET corri a-SGN PI IF h =20 OR h =6 0 
THE N G G T O 2000+h 

136 0 IF corri <>0 THEN PRINT RT 16 , 
0 " U O CREOLO ERRRTO : RIPROUfi" : GÒ 

TO i 

1370 IF d$( TO 5)="aiuto" THEN G 

O SUB T00: GO TO i 

1360 IF d$( TO 7 !» =" compara" THEN 

G O T O 16 0 0 

1390 PRINT RT 16,0,"NON CONOSCO 
QUEST R PAROLA" : GO TO i 
1600 BORDER 2: PRINT RT 14- , NOT P 

I ; •* ; RT 1S . NOT PI, " 

•• ; RT C , NOT 

PI;: IF Vi <5*SGN (b(1)-2) THEN 

P RINT "Il viso e 'piu grande." 

15 10 IF Vi >5*SGN C b ( 1 ) -2) THEN P 
RINT "Il viso e'piu'piccolo." 
1520 IF ca < >b (2) THEN PRINT "I C 

spelli sono "; ("piu ' lunghi " AND 

ca <b ( 2 ) ) ; ("piu 'corti" rnd c a > b ( 2 

) ) i " . " 

154-0 IF Ci <>b (3) THEN PRINT "Le 

ciglia sono "; ("piu 'folte" RND c 

i < b ( INT PI)) j ("piu 'sotti li" RND 
ci > b ( I NT PI) :■ ; " . " 

15 6 0 IF OCOb(4) THEN P R I NT "Gli 

occhi sono "; ("piu 'grandi" RND 
o C < b ( 4- J il ; ("piu'piccoli" RND o C > b 
( 4- il il ; " . " 

1560 IF or Ob (5) THEN PRINT "Le 

orecchie sono " ; ("piu 'grandi" RN 
D or,<b (5) ) j ("piu 'pi eco le" RND or 
> b (5 il ii ; " . " 

1590 IF naob(6) THEN PRINT "li¬ 
na s o e ' " ; ("piu 'grande" R N D ri a < b 
( 6 ii ) ; ("piu 'stretto" R N D n a > b ( 6 ) ) 


Segue quindi una serie di istruzioni indicanti i 
vocaboli da poter utilizzare al fine della 
«ricostruzione» del volto, dopo di che il computer 
rimane in attesa dei comandi per procedere con il 
disegno. 

A questo punto il bambino deve digitare la parola 
corrispondente ad uno dei lineamenti, ad esempio 
«viso». Il computer traccierà sulla destra dello 
schermo i contorni di un volto. L’utente può, in base 
a quanto ricorda dei particolari che deve ricostruire, 
lasciare lo schizzo così come è o chiedere di 
cambiarlo utilizzando l’aggettivo che, fra quelli a 
disposizione, ritiene più opportuno; in questo caso il 
tratto viene ridisegnato. È possibile richiedere più 
modifiche dello stesso tratto. 

Definito il viso, il bambino dovrà procedere con la 
definizione degli altri elementi, ad esempio la 
capigliatura. Se i capelli disegnati non 
corrispondono a quanto ricordato, il piccolo utente 
potrà chiedere che anche questi siano modificati. 

Nel caso però che venga adottato come istruzione 
un aggettivo che non può essere riferito al tratto 
preso in considerazione - nel caso dei capelli 
«grandi» - il computer risponderà: 

«VOCABOLO ERRATO: RIPROVA» 

Il bambino dovrà dunque individuare l’aggettivo 
appropriato - che sempre nel caso dei capelli sarà 
«lunghi». 

In qualsiasi momento è possibile chiedere «AIUTO» 
ed ottenere la lista dei vocaboli accettati dal 
computer. Dopo aver aggiunto allo schizzo «ciglia», 
«occhi», «naso», «labbra», «orecchie» - 
eventualmente «baffi» e/o «barba» - ed aver dunque 
completato l’IDENTIKIT, si passa, digitando la parola 
«COMPARA», al confronto fra l’originale presentato 
all’inizio dal computer e quanto ridisegnato, con la 
loro visualizzazione su schermo. 

Nel caso che fra i due volti esistano delle differenze, 
queste vengono elencate sotto i due disegni, ad 
esempio: 

— Gigi non ha i baffi 

— Le ciglia sono più sottili 

Nel caso invece che non esistano differenze fra i due 
verrà visualizzata la scritta: 

«IDENTIKIT PERFETTO!» 

Cosa può dunque un bambino apprendere da 
questo programma?! 

Oltre alla già indicata opportunità di esercitare il 


ac-errr ih xt 
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proprio spirito di osservazione, il bambino può 
esercitarsi — anche se usando solo un numero 
limitato di vocaboli — sugli aggettivi, sui loro gradi di 
comparazione (più «grande», più «piccolo»), sui loro 
concetti opposti e sulla loro stessa pertinenza — ad 
esempio, i «capelli» possono essere più «lunghi» o 
più «corti» ma non più «grandi» o più «piccoli». 
Fondamentale per l'efficacia e l’utilità di tale 
esercizio resta comunque il fatto che questo non 
viene presentato come tale: il bambino infatti di 
fronte ad un simile programma non penserà mai che 
stà imparando e dunque studiando qualcosa, bensì 
penserà di trovarsi alle prese con un «semplice» 
gioco, apprendendo di conseguenza molto di più 
rispetto ad un classico esercizio di grammatica. 

Al fine di adattare il programma anche alla capacità 
di memoria dello Spectrum versione 16K, sono state 
volutamente eliminate dal listato tutte le eventuali 
REM esplicative. Di seguito vengono date alcune 
note sulla struttura del listato. 


DISEGNO 

L’inizializzazione è data alla linea 1000. 

Questa richiama la subroutine alla linea 180 che 
serve per creare il volto e quindi visualizzarlo. 

Per ogni particolare del viso sono a disposizione tre 
diverse «grandezze»: queste combinate fra loro 
mettono a disposizione oltre 19.600 identikit diversi. 
Sempre in fase di inizializzazione, tutte le variabili 
riferite al volto vengono portate a zero, vengono 
richiamate le istruzioni e viene preparato lo schermo. 
Il LOOP principale ha inizio alla linea 1110. 

L’ultima parola — input inserita viene memorizzata in 
'ES'mentre il nuovo INPUT va ad occupare 'D$'. 
Questo stesso INPUT viene quindi controllato per 
verificare se si tratta di un sostantivo («viso», «naso») 
o di un aggettivo («sottile» «stretto»). 

Se la parola viene identificata come sostantivo (linee 
1120-1190), ne viene disegnato il corrispondente. Se 
il sostantivo richiama invece un particolare già 
presente su video, allora quanto disegnato in 
precedenza viene cancellato e sostituito con un 
nuovo tratto. 

La variabile 'H' viene utilizzata per registrare l’ultimo 
particolare disegnato e per verificare, nel caso che si 
decida di modificarlo, la pertinenza dell’aggettivo 
utilizzato. 

Se invece la parola inserita viene identificata come 
aggettivo, la variabile 'COM' viene posta ad 1 o -1, 
quindi viene controllato se l’aggettivo indicato può 
essere utilizzato con il particolare contenuto in 'H'. 

In caso affermativo, il controllo passa alle linee 
2010-2090, dove si verifica che il limite delle misure 
non ecceda e poi si passa a disegnare il particolare 
secondo le indicazioni. 

La linea 1360 controlla se l’aggettivo indicato può 


1610 IF l a < > b ( 3 ) THEN PRINT "Le 


la < b 

( 8 ) ) j ( 

"piu 'pi 

eco le” 

RND l a > b 

(8 ) ) 

* « 




16 30 

IF bf 

= NOT PI 

RND b 

(7)>SGN P 

I THEN G O 

SUB "70 : 

PR INT 

"ha i b a 

f f i . 

” : GO 

TO 1660 



164-0 

IF b f 

< ( b ( ) - 

SGN PI) THE N PR 

I NT 

” I b a f 

fi sono 

Piu' 

folti ." 

16 50 

IF bf 

> NOT PI 

RND b 

(7)=SGN P 

I THEN G O 

SUB TO: 

PR INT 

"non ha 


i baffi." 

1660 IF bf > b (7) — SGN PI THEN PRIN 

T "I baffi sono piu' sottili.” 
1670 IF bf =NOT PI hND b(9) >SGN P 

I THEN G O SUB 70: PRINT "ha la b 

arba.": GO TG 1300 

1680 IF bf <b <9) -SGN PI THEN GO S 

UB z: PRINT ” barba e' piu' lung 

a . " 

1690 IF b r > NOT PI RND b (9) =5GN P 

I THEN GO SUB 70: PRINT * 1 n O n ha 

la barba.": GO TO 1300 
1700 IF bf >b (9) -5GN PI THEN PRIN 

T "La barba e ' piu' corta.” 

1300 GO SUB 200 

1310 IF PEEK 2 36 3 9 = *: THEN PRINT 

PRINT PRINT "IDENTIKIT PEPFE 
TTO ! " 

ISSO PRINT : PRINT : PRINT "Prem 

1 'R'P e r gio c a r e ancora.” 

1360 IF INKEV**”" THEN GO TO 136 

0 

1370 IF INKEY*="f" THEN RUN 

1900 STOP 

2010 GO SUB 5010: LET V i = 5 ■* C O m - 5 

* S G N com*(vi/'5 = -corn) : Gu SUB 503 
0 : GOTO i 

2020 G o sub 5110: L et ca=ca+com* 

( ( C a < INT PI RND coni = SGN PI) OR ( 
c a > SGN P I RND CO rn = -SGN PI)): GO 

SUB 5130: GO TO i 

20 30 GO SUB 52 10: LET Ci =Ci + COHI* 

( (ci < INT PI RND corri = SGN PI) OR ( 
Ci > SGN PI RND COfn =-SGN PI) ) : GO 

SUB 5230 GO TO i 

2 0 4-0 GO SUB 5310: LET OC=OC+COm* 

( (OC < INT PI RND COM =SGN PI) OR ( 

O c >SGN PI RND C O ro =-SGN PI)): GO 

SUB 5330: GO TO ì 

2050 GO SUB 54-10: LET or=or+com* 

((or< INT PI RND coni = SGN PI) OR ( 

Or>SGN PI RND coro=-SGN PI)): GO 

-SUB 54-30: GO TO i 

2060 uO SUB 5510: LET na=na-+-coro* 

< ( n a <INT PI RND coro = S G N PI) OR ( 

n a > S G N PI R N D C O ro = - S G N PI)): G O 

SUB 5530: GO TO i 

2070 GO SUB 5610: LET bf=bf+com* 

( (bf > N OT PI RND coro =-SGN PI) OR 

(bf <2 RND COfn=SGN PI)) : GO SUB 5 
630: GO TO i 

2030 GO SUB STI©: LET l«=la+COm* 

( ( l a < INT PI RND C O m = S G N PI) OR ( 

la > SGN PI RND Coma—SGN PI)): G O 

SUB 5730 : GO TO i 

2 090 GO SUB 5S10: LET bfabN-COK* 

( ( b f > NOT PI RND coro =- SGN PI) OR 

(br <2 RND coro = SGN PI) ) : GO SUB 5 
330 : GO TO i 

5010 GO SUB 5110: GO SUB 54-10: P 

LOT INVERSE 1 ; X -V » , y : DRRU INDE R 
SE 1; 20+vi , —z ,SGN PI: DRRU INUER 
SE 1 i 20,NOT PI: DRRU INUERSE 1;2 

0+Vi,Z,SGN PI: RETURN 

5030 PLOT X-vi,y: DRRU 20+vi,-2, 
SGN PI: DRRU 20,NOT PI: DRRU 20+ 

Vi, Z,SGN PI: RETURN 

5 110 FOR j =NOT PI TO 13: PLOT IN 

UERSE 1 ; X -5 , y ■+■ j : DRRU INUERSE 1, 
-75,0: NE XT j: RETURN 

5 130 PLOT X —V x , y FOR J =NOT PI T 

O (62+2*vi ) ST E P INT PI: DRRU 2 , 

6*51N (j/(3*Vi/5+20))*ca : PLOT X 
— Vi + .j , y : NEXT j: RETURN 
52 10 FOR j = SGN PI TO 5: PLOT INU 

ERSE 1; X+18-Ci , y — 5 — j : DRRU INUER 
SE l;10+ci*2,NOT PI: NEXT J 
52 15 FOR j = 1 TO 5: PLOT INUERSE 
l;x+36,y-5-J: DRRU INUERSE 1; 10 + 

Ci*2,NOT PI: NEXT j: RETURN 
5230 FOR j=SGN PI TO 10+Ci*2: PL 

OT X +18-C i »2 + j ,y—9—SIN ( (ci -1) *j 
): NEXT j 

524-0 FOR j =SGN PI TO 10+Ci *2: PL 

OT X +36+ j , y -9-51U (j* (Ci -SIN PI) 

): NEXT j : RETURN 

5310 PLOT INUERSE 1;x+18.y-13: D 
RRU INUERSE 1,10,NOT PI,OC: DRRU 
INUERSE 1;-10,NOT PI,oC: PLOT I 

NUERSE 1; X +36 , y -18 : DRRU INUERSE 
1, 10 .NOT PI ,o C : DRRU INUERSE 1; 
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-10 , HOT PI , O C : RETURN 

5330 PLOT X +23 , y - 18 : PLOT X +41 , y 
-13 PLOT X + 13 , y - 13 : DRflU 10 , NOT 
PI.OC: DRflU -10 , NOT PI , o C : PLOT 

X t 36 , y -13 : DRflU 10 , NOT PI,OC : D 
Rfilì» - 10 , NOT P I , O C : RETURN 
5 4-10 IF Of =NOT PI THEN RETURN 
54-15 PLOT INVERSE 1; X -V i /2,142 : 

DRflU INVERSE 1,-Of*PI,NOT PI,PI: 

D R R U INUERSE 1; or*PI+Vi X PI , -C 
DRflU INUERSE 1, O r,NOT PI: PLOT I 

NUERSE 1;x+60+vi/2,142: DRflU INU 

ERSE 1; o r * PI ,NOT PI, -PI: DRflU IN 
UERSE 1; -or * P I - V i /PI , -C : DRflU IN 
U ERSE l; -or , NOT RI 
54-20 RETURN 

5 4-30 PLOT X-Vi/2,142; DRflU -OC*P 

I , NOT PI, PI: DRflU or*PI+Vi /PI, -C 

DRflU O r ,NOT PI: PLOT X+60+VÌ/2 

,142: DRflU OT*PI,NOT PI,-PI DPR 

U —Or*Pl-Vi/PI,-C: D P R LI -OC, N OT 
PI: RETURN 

5510 PLOT INUERSE liX+32,y-22: D 

RRU INUERSE 1j -2*na , -10 : DRflU IN 

UERSE 1 ; 4 *n a , NOT PI: DPRl...l INUE RS 
E 1; -Stria , 10: RETURN 

55 3© PLOT x +32 . y -2 2 : DRflU -2 *n a , 

-10: DRflU 4 * n a , N OT PI DRflU -2*n 

a , 10: RETURN 

56'0 FOR j =SGN PI TO bf+SGN PI: 

PLOT INUERSE 1, X +24-b f ,y -34 -j . D 

RRU INUERSE 1 15 + b f *2 , NOT P I : NE 

XT j: RETURN 

5530 IF b f =NOT PI THEN RETURN 

5535 FOR J =SGN f I TO bf+SGN PI: 

P L OT X+24-bf ,y-34-j : DRflU 15+bf* 

2, NOT PI: NE XT J: RETURN 

5710 PLOT X +24 , y -40 : DRflU INUERS 

E 1,16,NOT PI: DRflU INUERSE 1,-1 

6 ,NOT PI , - L a : RETURN 

5730 PLOT X +24 , y -40 : DRflU 16 ,NOT 

P I : DRflU - 16 , NOT P I , - I. a : RETURN 

53 10 FOR j =SGN PI TO 6*br STEP b 

r : P L OT X+31-6*br+j,y-Z: DRflU IN 
UERSE 1; NOT PI . -br * j : NE XT j 
5 3 15 FOR j =-6 * b r TO -SG N PI ST E P 
br : P L UT X+32+ (b#br+j) , y — Z : DR H 
U INUERSE l; NOT PI , br * j : NE XT j 
R ET U R N 

53 30 IF b r =NOT PI THEN RETURN 


5335 FOR J=5GH PI TO 6+br STEP b 
r : P L OT X + 3 1 - 6 * b r + J , y - Z : DPR LI N O 
T PI, - br+j NE XT _i 


5 3 4 0 FOR j =-6 * b r TO -5GN 
br: PLOT X+32+ (6#br+j‘ 

U NOT RI , br *j : NE XT J : 


PI STEP 
y-Z: DRR 
R ET U R N 


essere utilizzato con il sostantivo trattato al 
momento. 

Nel caso che l’aggettivo indicato non sia corretto 
viene visualizzato il messaggio: 

«VOCABOLO ERRATO» 

ed il programma torna alla fase di INPUT. 

Se l’INPUT corrisponde alla parola 'AIUTO', viene 
richiamata la subroutine alla linea 700 che visualizza 
l’elenco delle parole riconosciute dal computer, 
ponendolo nella parte sinistra dello schermo in modo 
da non interferire con il disegno che si trova al 
momento in fase di elaborazione. 

L’inserimento della parola 'COMPARA' segnala al 
computer la fine del «gioco» ed il controllo passa alla 
linea 1500: i due volti vengono visualizzati sullo 
schermo e quello disegnato ex-novo viene 
comparato con quello originale, immagazzinato nella 
array 'B(9)\ 

Vengono quindi visualizzati gli eventuali messaggi 
riguardanti le differenze esistenti fra i due. 


VARIABILI 

1) Variabili per il disegno 

x - utilizzata per la coordinata 'X' (ascissa). Ha 
valore 32 (volto sulla sinistra) e 159 (volto 
sulla destra). 

y - utilizzata per la coordinata 'Y' (ordinata). Ha 
valore 155 e viene usata anche per 
identificare la linea 155. 

2) Variabili utilizzate come costanti per 
risparmiare memoria: 

c =12 
z =50 
i -MIO 

Altre costanti: 

0 è sostituito da NOT PI 

1 è generalmente sostituito da SGN PI 

3 è sostituito da INT PI 

3) Variabili dei lineamenti Valore 


vi 

= 

viso 

-505 

ca 

= 

capelli 

1 23 

ci 

= 

ciglia 

1 23 

oc 

= 

occhi 

1 23 

or 

= 

orecchie 

1 23 

na 

= 

naso 

1 23 

la 

= 

labbra 

1 23 

bf 

= 

baffi 

023 

br 

= 

barba 

023 

h 

= 

lineamento 

10..90 


4) Variabili stringa: 
d$ = INPUT attuale 
eS = INPUT precedente 


ARRAYS 

b(9) - contiene i particolari riguardanti il viso di Gigi 


PEEKs / POKEs 

POKE 23609 (linea 20) - effetto sonoro dei tasti 
premuti 

PEEK 23689 (linea 50 e 70) - legge la linea cursore 
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PI ET MONDRIAN 

di OSVALO CONTENTI 

Una scorrevole scheda sulla 
vita e l’opera del pittore 
astrattista con in appendice un 
gioco con cui potrai comporre il 
tuo astratto. 


QUESTO PROGRAMMA E DISPONIBILE SU CASSETTA 
PRESSO LA REDAZIONE. 

PER LE ISERUZIONI DI ACQUISTO CONSULTARE LA PAGINA 
DI APERTURA DELLA SEZIONE SOFTWARE. 








P E ET MONDRI RH § 

I N QLftNDft N E 11 
BD ftHERSFDDRT» 

IL PADRE LO INIZIA 
RI RODIMENTI DEL 
DISEGNO DAL VE 
DAL 1892 MONDR 
FR 



La generazione che all’inizio degli anni’80 vide fiorire 
l’avvento deH’home computer, lo identificò, come da 
business pubblicitario, alla pari di un sofisticato 
«marchingegno» atto a rivoluzionare le regole del più 
antico e fantastico laboratorio di sogni mai esistito: il 
gioco. 

Non a caso la nuova proposta prese piede proprio 
nelle grandi aree metropolitane, ove la mancanza 
endemica di verde e strutture sociali fece da «tapis 
mulant» all’ingresso in casa della nuova macchina 
dei sogni. 

D’altra parte, il software-boy di cinque anni fa ebbe a 
disposizione per primo la gestione incondizionata 
della scatola video, che almeno in parte lo 
convogliava dalla immagine di utente passivo a 
quella di agente attivo programmatore. 

Da qui alle nuove tendenze il passo è breve. Appreso 
con più dimestichezza il linguaggio di 
programmazione e compresa con stupore l’enorme 
potenzialità dei seppur piccoli elaboratori personali, 


l’utente di oggi richiede al programmatore esperto 
nuovi tipi di programmi come la gestione di archivi 
ad indirizzo specifico, ausili matematico-scientifici, 
didattici, di grafica avanzata e ancora giochi, ma 
inediti e graficamente ben impostati, tali da lenire la 
spietata concorrenza dei video-laser. 

A questo proposito, proponiamo alla vostra 
attenzione la seconda scheda didattica dopo quella 
su Michelangelo Buonarroti (vedi LIST n. 4 ’85), 
questa volta riservata ad ad un artista olandese, a 
quel Piet Mondrian che fu il caposcuola dei 
neoplastici. 

Della sua vasta opera è stato tratto il famoso 
QUADRO I, al fine di riprodurlo in gran formato e a 
colori sullo schermo. 

LA SCHEDA 

Premere un tasto qualsiasi per leggere la scheda o 
voltare pagina 
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Premere il tasto <l> per leggere da capo la scheda 

Premere <F> per END 

Premere <C> per passare al gioco 


COMPONI IL TUO ASTRATTO 

Con le tessere alla sinistra dello schermo componi 


liberamente un motivo artistico digitando le lettere 
corrispondenti ai caratteri sottostanti che verranno 
stampati nelle coordinate dei cursori che muoverai: 

con il tasto <W> per sinistra 

con il tasto quello <E> per destra 

con il tasto quello <T> per alto 

con il tasto quello <F> per basso 

Per il carattere di sfondo premi la barra spaziatrice. 


10 CALL CLEAR 
20 CALL SCREEN(16) 

30 RI-2 
40 C0-10 
50 Bl*"FFFF " 

60 C4*"000000000000FFFF" 

70 D4-"C0C0C0C0C0C0C0C0" 

80 El-"C0C0C0C0C0C0FFFF" 

90 Fl»"0000000000000000" 

100 CALL CHAR(105,Bl) 

110 CALL CHAR(114,"FFFF55AA55AA55AA") 
120 CALL CHARdll'C*) 

130 CALL CHAR <113,"55AA55AA55AAFFFF") 
140 CALL CHAR(121,CI) 

150 CALL CHAR (110,DI) 

160 CALL CHAR(122,DI) 

170 CALL CHAR(107,El) 

180 CALL CHAR(123,EI) 

190 CALL CHAR(120,FI) 

200 CALL CHAR(128,FI) 

210 CALL CHAR(97,FI) 

220 CALL CHAR(112,"55AA55AA55AA55AA") 
230 CALL CHAR(104,"FFFFFFFFFFFFFFFF") 
240 CALL CHAR(98,"0303030303030303") 

250 CALL CHAR(106,"FFFFC0C0C0C0C0C0") 
260 CALL CHAR(108,"FFFF030303030303") 
270 CALL CHAR(109,"030303030303FFFF"> 
280 CALL CHAR(99,"FEFE060606060606") 

290 CALL CHARdOO, "0606060606060606") 
300 CALL COLOR(3 y 7 f 16) 

310 CALL COLOR(4,7,16) 

320 CALL C0LQR(9,2,15) 

330 CALL COLOR(10,2,15) 

340 CALL COLOR(11,2,5) 

350 CALL COLOR(12,2,7) 

360 CALL COLOR(13,2,12) 

370 PRINT "hhhzxxxxxx xxxxxxxxxxxxxxxx" 
380 PRINT "hhhzxxxxxx " 

390 PRINT "aaazxxxxxx SCHEDA DIDATTICA" 
400 PRINT "aaazxxxxxx" 

410 PRINT "aaazxxxxxx SU PIET M0NDRIAN" 
420 PRINT "aaazxxxxxx" 

430 PRINT "aaazxxxxxx xxxxxxxxxxxxxxxx" 
440 PRINT "aaazxxxxxx" 

450 PRINT "aaafyyyyyy xxx DADO 1985 xx" 
460 PRINT "aaanaaaaad" 

470 PRINT "aaanaaaaad” 


480 PRINT "aaanaaaaad" 

490 PRINT "aaanaaaaad" 

500 PRINT "hjijliiiic" 

510 PRINT "hnanaaaaad" 

520 PRINT " nanaaaaad” 

530 PRINT " nanaaaaad" 

540 PRINT " nanaaaaad" 

550 PRINT " najiiilrr xxxxxxxxxxxxxxxx" 
560 PRINT " nanaaabpp” 

570 PRINT " nanaaabpp A LATO" 

580 PRINT " nanaaabpp" 

590 PRINT " nakoooaqq QUADRO I 1913" 

600 CALL VCHAR(16,3,128,8) 

610 CALL KEY (0 ,K, S) 

620 IF S-0 THEN 610 
630 IF K-67 THEN 1130 
640 F0R T-l T0 23 
'650 CALL HCHAR(T,13,32,20) 

660 CALL S0UND(100,208#T,B,131#T,8,156#T 

, 8 ) 

670 NEXT T 
680 R-l 
690 C-13 
700 READ Al 

710 FOR A-l TO LEN(Al) 

720 X-ASC(SE6I (Al,A, 1)) 

730 CALL HCHAR(R,C+A,X) 

740 CALL SOUND(-10,X*100,10) 

750 NEXT A 
760 R-R+2 

770 IF Al-"xxx FINE SCHEDA xxx" THEN 107 
0 

780 IF R>23 THEN 790 ELSE 700 
790 CALL KEY(0,K,S) 

800 IF S-0 THEN 790 
810 IF K-49 THEN 1050 
820 IF K-67 THEN 1130 
830 R«1 
840 C-13 

850 FOR T-l TO 23 

860 CALL HCHAR(T,13,32,20) 

870 NEXT T 

880 GOTO 700 

890 DATA "PIET MONDRIAN NASCE","IN OLAND 

A NEL 1872","AD AMERSFOORT,DOVE","IL PAD 
RE LO INIZIA" 
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900 DATA "AI RUDIMENTI DEL","DISE6N0 DAL 
VERO.","DAL 1892 MONDRIAN","FREQUENTA P 
ER TRE","ANNI L'ACCADEMIA" 

910 DATA "DI AMSTERDAM NELLA", "QUALE PRO 
DUCE OPERE", "DI PURO CARATTERE","NATURAL 
ISTICO IN","PERFETTA SINTONIA" 

920 DATA "CON LA TRADÌZIONE","OLANDESE." 
» "DAL PERIODO PRIMA","MANIERA (1895-1907 
>" f "SI PASSA ALLA" 

930 DATA "RICERCA SIMBOLISTA",•INTRAPRES 
A DAL 1908","COL TRASFERIMENTO","DELL'AR 
TISTA A","DOMBURG IN ZELANDA." 

940 DATA "IL SIMBOLISMO IN M.","SI TRADU 
CE IN ZONE"|"DI COLORI VIVI RESI","NEL D 
ETTAME FAUVE","E DIVISIONISTA." 

950 DATA "TALI OPERE DIEDERO","TERRENO P 
ROPIZIO","AL PERIODO CUBISTA","DEL NOSTR 
0,CON LA","STORICA SERIE DE6LI" 

960 DATA "ALBERI,SINO ALLO","STILE PARIS 
INO","(VEDI QUADRO I )","ASCIUTTO E RIBOR 
OSO","DAL 1914 AL 1919" 

970 DATA "TORNATO IN OLANDA","M. SI INSE 
RISCE","NELLA DINAMICA","DELL'ASTRATTISM 
0", "E NEL 1917 FONDA" 

980 DATA "LA RIVISTA DE STIJL","C0NV06LI 
ANDO IN","ESSA,IN MEDITATI ","ARTICOLI,IL 
SUO","PENSIERO SULL'ARTE." 

990 DATA "ASSIEME AL GRUPPO","DEI NEOPLA 
STICI.M.","COLTIVA L'IDEA DI","UNA ELABO 
RAZIONE","ASTRATTA,RESA DA" 

1000 DATA "LINEE RETTE FRA","LORO 0RT060 
NALI","E L'UTILIZZO DI","COLORI FONDAMEN 
TALI ","L'AMA16AMA DEL" 

1010 DATA "MOVIMENTO NON DURA","A LUNGO 
E MONDRIAN","LO ABBANDONA NEL","1925,PUR 
INTESSENDO" 

1020 DATA "ANCORA RAPPORTI CON","VAN DOE 
SBURB,LE6AT0","COM'ERA ALLA SUA","RICERC 
A SULLE","COMPOSIZIONI A" 

1030 DATA "SCACCHIERA."."L'ULTIMA STAGIO 
NE","DEL PITTORE HA SEDE","IN NEW YORK 1 
940-44","DOVE REALIZZA LA" 

1040 DATA "SUA OPERA-MANIFESTO","BROADMA 

Y BOOGIE-","WOOGIE.",". 

• ", " x x x FINE SCHEDA xxx" 

1050 RESTORE 

1060 GOTO 640 

1070 CALL KEY(0,K,S) 

1080 IF K«49 THEN 1050 

1090 IF K«70 THEN 1720 

1100 IF K*67 THEN 1130 

1110 GOTO 1070 

1120 REM COMPONI IL TUO ASTRATTO 
1130 CALL CLEAR 

1140 DATA 105,114,111,113,121,110,122,10 
7,120,97,112,104,98,106,108,109,99,100 
1150 CC-3 


1160 RESTORE 1140 
1170 FOR DIS-i TO 3 
1180 FOR A-4 TO 19 STEP 3 
1190 READ Z 

1200 CALL HCHAR(A,CC,Z — 32) 

1210 CALL HCHAR(A+1,CC,Z) 

1220 CALL HCHAR(1,C0,120) 

1230 CALL HCHAR(RI,9,120) 

1240 CALL S0UND(300,Z*30,8) 

1250 NEXT A 

1260 CC-CC+2 

1270 NEXT DIS 

1280 CALL HCHAR(22,5,71) 

1290 CALL HCHAR(23,5,128) 

1300 CALL KEY(0,K,S) 

1310 IF S-0 THEN 1300 

1320 IF K-87 THEN 1480 

1330 IF K-69 THEN 1540 

1340 IF K-84 THEN 1600 

1350 IF K-70 THEN 1660 

1360 IF K-32 THEN 1420 

1370 IF K-71 THEN 1450 

1380 IF (K>64)*(K<91)THEN 1390 ELSE 1300 

1390 CALL HCHAR(RI,C0,K+32) 

1400 CALL SOUND(100,K*50,5) 

1410 GOTO 1300 

1420 CALL HCHAR(RI,CO,32) 

1430 CALL SOUND(100,-7,9) 

1440 BOTO 1300 

1450 CALL HCHAR(RI,C0,128) 

1460 CALL SOUND(100,560,5) 

1470 GOTO 1300 

1480 IF CO-IO THEN 1300 

1490 CO-CO-1 

1500 CALL HCHAR(1,C0+1,32) 

1510 CALL HCHAR(1,CO,120) 

1520 CALL SOUND(-100,C0*50,5) 

1530 GOTO 1300 

1540 IF CO-32 THEN 1300 

1550 CO-COM 

1560 CALL HCHAR(1,CO — 1,32) 

1570 CALL HCHAR(1,CO,120) 

1580 CALL SOUND(-100,C0#70,5) 

1590 GOTO 1300 

1600 IF RI-2 THEN 1300 

1610 RI-RI-1 

1620 CALL HCHAR(RI*1,9,32) 

1630 CALL HCHAR(RI,9,120) 

1640 CALL SOUND(-100,RI*65,5) 

1650 GOTO 1300 

1660 IF RI-24 THEN 1300 

1670 RI-RI+1 

1680 CALL HCHAR(RI — 1,9,32) 

1690 CALL HCHAR(RI,9,120) 

1700 CALL SOUND(-100,RI#60,5) 

1710 GOTO 1300 
1720 END 


92 


LIST 8/9 
























SPELLING WORDS 



di OSVALDO CONTENTI 



Appariranno sullo schermo in rapida sequenza 6 
lettere formanti una parola di senso compiuto (anche 
straniera). 

A voi il compito di invidivuare il termine esatto 
digitandolo da tastiera. 


TASTIERA 

Digita il tasto 1 per dare inizio alla sequenza; quindi 
digita normalmente il vocabolo (accanto alla tua 
risposta apparirà sempre quella esatta). 

PUNTEGGIO 


LIVELLI DI GIOCO 
Esistono 3 livelli di difficoltà: 


Il punteggio è pari a 1000 punti per ogni risposta 
esatta meno il tempo impiegato a digitarla (tempo 
misurato da un contatore interno). 


digita 1 per quello facile (adatto ai più piccoli) 
digita 2 per quello medio (per cominciare) 
digita 3 per quello «super» (per i campioni) 

Per finire l’HIGH SCORE memorizzerà il miglior 
punteggio realizzato dal o dai concorrenti in gara. 
Ogni manches si compone di 7 sequenze di termini. 

10 CALL CLEAR 

170 DEF P6 S ( W*6 )+1 

20 CALL SCREEN(12) 

180 LE=9 

30 PRINT "# SPELLING WORDS * 

190 P0=14 

DADO 1985" 

200 PU=0 

• • • a 

• • a • 

210 TE=0 

40 PRINT "LIVELLO ? FA 

220 HP=0 

CILE; PREMI <i> MEDIO : PREMI 

230 CALL CHAR(128,FI) 

<2> SUPER : PREMI <3>" 

240 CALL CHAR ( 136,FI) 

50 INPUT "? " :LIV 

250 CALL CHAR(144 , F$) 

60 IF LIV>3 THEN 50 

260 CALL COLOR(3,16,2) 

70 0N LIV GOTO 80,100,120 

270 CALL COLOR (4,16,2) 

80 LIV=80 

280 CALL COLOR(5,2,16) 

90 GOTO 130 

290 CALL COLOR(6,2,16) 

100 LIV=20 

300 CALL COLOR (7,2,16) 

110 GOTO 130 

310 CALL COLORO,2,16) 

120 LIV*1 

320 CALL COLOR(9,16,5) 

130 CALL CLEAR 

330 CALL C0L0RG0,16,5) 

140 CALL SCREEN ( 2) 

340 CALL COLOR(11,16,5) 

150 FI$ = " G10CHI ANCORA ? S:N" 

350 CALL COLOR(12,16,5) 

160 F$="FFFFFFFFFFFFFFFF" 

360 CALL COLOR(13,12,12) 
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370 CALL COLOR(14,14,14) 

380 CALL COLOR(15,10,10) 

390 PRINT " SCORE 0000 HIGH SCORE 0000"s 
::::::::::::::::::: 

400 FOR Z=65 TO 90 
410 CALL HCHAR(9,Z-61,Z ) 

420 NEXT Z 

430 CALL HCHAR(8,4,128,26) 

440 CALL HCHAR(7,4,136,26) 

450 CALL HCHAR <6,4,144,26) 

460 CALL HCHARdO, 4, 128,26) 

470 CALL HCHAR(11,4,136,26) 

480 CALL HCHAR(12,4,144,26) 

490 CALL KEY (0 ,K,S ) 

500 IF S=0 THEN 490 
510 CALL SOUND(100,-1,10) 

520 IF K=49 THEN 540 
530 GOTO 490 
540 RANDOMIZE 
550 L6= INT (11*RND+1 ) 

560 ON L6 GOTO 570,590,610,630,650,670,6 
90,710,730,750,770 

570 AI="AAAAAADENARQOCEANQSCUQLAALBERQLA 
VORIVIPERAVAPORERETATAVENTRECALORECOLORE 
DIVANOCASATAPIANTAPIANTOGERANI" 

580 GOTO 780 

590 AI="AAAAAAVEDUTAQUADROROVINERAPINEOC 
CHIOTREMAIMURAREVEDERERADERELUGANOTORINO 
TORNEOMIMOSAZARINAZOTI CORI SALE" 

600 GOTO 780 

610 AI="AAAAAABQCCIAVALORELONTRALONDRAVO 
LUMEBALENOBAVERODOVEREDOLOREGREGGEFALENA 
FI ASCOFIGUREGIACCANOVIZIBOLGIA" 

620 GOTO 780 

630 AI="AAAAAAPAVONEFODERASALUMISETOLELA 
GUNAORDINEANITRAARMAREARMADIARMENI GELOSI 
GENEREDIVINOPOLENADISCHIGROTTE" 

640 GOTO 780 

650 AI="AAAAAAAPQLLQDESTRAERCOLEPRUGNAEG 
ITTOESTASI CENEREIMBUTOIDEAREGRUCCEURTARE 
MORTAINOVARAOSTICAFORNAICANILE" 

660 GOTO 780 

670 AI="AAAAAACARNAISCARPEPESCHERETINABR 
ONZOBROCCATRESCAGRIGIOZONALIRIVOLOUSCITA 
SUPINOBUCCIAAGRUMIQUINTOQUESTO" 

680 GOTO 780 

690 AI="AAAAAAPOMATARUDEREMOSCHEBOSCHIBR 
USCOREGGIALOGGIALUNARESOLARECOMETASTELLA 
LOCALEVASINOPIRATAPELTROMUSICA" 

700 GOTO 780 

710 AI="AAAAAASIGAROALCOOLALCOVAVENOSQVE 
LATOGIALLOROSATOVEDEREVISOREVISONEPEPATO 
SALATISEDILEPIATTACAMBIOSUTURA" 

720 GOTO 780 

730 A$="AAAAAAGUANCEGUAIREGUASTAVASSOIBO 
CCHETRILLISTUOLOSTORMOSTORNACEDOLACUCULO 
GRINTADUBBIOTRONCOREPLAYSENAPE" 


740 GOTO 780 

750 AI="AAAAAABANANEPLESSQGIACCAYANKEEWI 
NNERPUGILEPLAYERCRUSCACOWBOYNORCIAMARCI A 
PINETAHOCKEYBASKETZIGANQSPUNTA" 

760 GOTO 780 

770 AI*"AAAAAAKILLERPUZZLEGREZZOBARMANVE 
SPAIBIKINIBOHEMEBOUCLEBOXEURBRANDYBRIDGE 
BUDGETBUFFETBUREAUCHALETCHANCE" 


780 

RANDOMIZE 

790 

W=I NT(16 * R N D)♦1 

800 

A»ASC(SEGI(AI,P6,1)) 

810 

B=ASC(SE6I (Al,P6 + 1,1 )) 

820 

C=ASC(SEGI( Al, P6+2,1)) 

830 

D = ASC(SEGICAI,P6 + 3,1)) 

840 

E*ASC(SEBI(Al,P6*4, 1 ) ) 

850 

F=ASC(SEGI(AI,P6+5,1)) 

860 

CALL 

HCHAR(9,A-61,A+32) 

870 

CALL 

SOUND (-100, AMO 110) 

880 

FOR Z 

=1 TO LIV 

890 

NEXT 

Z 

900 

CALL 

HCHAR(9,A — 61,A) 

910 

CALL 

HCHAR(9,B-61,B+32) 

920 

CALL 

SOUND(-100,B * 10,10) 

930 

FOR Z 

=1 TO LIV 

940 

NEXT 

Z 

950 

CALL 

HCHAR(9,B-61,B) 

?60 

CALL 

HCHAR(9,C-61,C+32) 

970 

CALL 

SOUND(-100,C*10,10) 

980 

FOR Z 

=1 TO LIV 

990 

NEXT 

Z 

1000 

CALL 

HCHAR ( 9,C-61,C) 

1010 

CALL 

HCHAR(9,D — 61,D + 32) 

1020 

CALL 

SOUND < — 100,D*10,10) 

030 

FOR 

Z = 1 TO LIV 

1040 

NEXT 

Z 

1050 

CALL 

HCHAR(9,D-61,D) 

1060 

CALL 

HCHAR(9,E — 61,E + 32) 

1070 

CALL 

SOUND (-100,EMO, 10) 

1080 

FOR 

Z=1 TO LIV 

1090 

NEXT 

Z 

1100 

CALL 

HCHAR(9,E-61,E) 

1110 

CALL 

HCHAR(9,F-61,F+32) 

1120 

CALL 

SOUND(-100,F*10,10) 

1130 

FOR 

1=1 TO LIV 

1140 

NEXT 

Z 

1150 

CALL 

HCHAR(9,F-61,F) 

1160 

CALL 

KEY(0,K,S) 

1170 

TE=TE+1 

1180 

IF S 

=-l THEN 1160 

1190 

IF S 

=0 THEN 1160 

1200 

IF (K<65) + (K>90)THEN 1160 

1210 

CALL 

HCHAR ( PO,LE,K ) 

1220 

LE=LE+1 

1230 

IF LE > 14 THEN 1240 ELSE 1160 

1240 

CALL 

GCHAR(PO,9,VE) 

1250 

IF VEOA THEN 1450 

1260 

CALL 

GCHAR ( PO,10,VE ) 
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1270 IF VEOB THEN 1450 
1280 CALL GCHAR ( PO,11,VE ) 

1290 IF VEOC THEN 1450 
1300 CALL GCHAR <P0,12,VE) 

1310 IF VEOD THEN 1450 
1320 CALL GCHAR(PO , 13,VE ) 

1330 IF VEOE THEN 1450 
1340 CALL GCHAR ( PO,14,VE ) 

1350 IF VEOF THEN 1450 

1360 CALL S0UN0(300,523,5,659,5,784,5) 

1370 PU=PU+ (1000-TE) 

1380 PU$=STR$(PU) 

1390 F0R Q*1 T0 LEN(PUS) 

1400 X*ASC(SEG$(PU$,Q, 1)) 

1410 CALL HCHAR(4,(13 + Q)-LEN(PU$) ,X) 
1420 CALL SOUND (-100, X* 1 0 ,10) 

1430 NEXT Q 

1440 GOTO 1460 

1450 CALL SOUND ( 300,-7,0) 

1460 CALL HCHAR ( PO , 19,A + 32 ) 

1470 CALL HCHAR(PO,20,B+32 ) 

1480 CALL HCHAR ( PO,21,C+32 ) 

1490 CALL HCHAR(PO,22,D+32) 

1500 CALL HCHAR(PO,23,E+32 ) 

1510 CALL HCHAR ( PO,24,F+32 ) 

1520 TE*0 

1530 LE=9 

1540 P0=P0+1 

1550 IF P0*21 THEN 1570 

1560 GOTO 490 

1570 IF PU>HP THEN 1580 ELSE 1650 

1580 HP=PU 

1590 H$*STR$ ( HP ) 

1600 FOR ZZ*1 TO LEN(HI) 

1610 XX*ASC(SEG$(H$,ZZ, 1) ) 

1620 CALL HCHAR(4, ( 29 + ZZ ) -LEN ( HI),XX ) 
1630 CALL SOUND(—100,XX*10,5) 

1640 NEXT ZZ 

1650 FOR FN* 1 TO LEN(FII) 

1660 H*ASC(SEGt(FI$,FN, 1)) 

1670 CALL HCHAR ( 24,2 + FN, H )' 

1680 NEXT FN 

1690 CALL KEY (0 ,K,S) 

1700 IF S*0 THEN 1690 
1710 IF K*83 THEN 1740 
1720 IF K*78 THEN 1810 
1730 GOTO 1690 

1740 CALL HCHAR(13,1,32,384 ) 

1750 CALL HCHAR(4,10,48,4) 

1760 P0* 14 
1770 LE = 9 
1780 TE*0 
1790 PU*0 
1800 GOTO 490 
1810 END 



Dovunque l’energia elettrica 
debba essere fornita sempre 

facilita e cch 
c ontinuità aàéolu ta 

Apparecchiature elettroniche 
appositamente studiate per 
alimentare microcomputers e 
sistemi di elaborazione dati. 

|y|CnC| perché da sempre 
protagonista nel 
settore delle alimentazioni elettriche, 
come molti già sanno, produce apparec¬ 
chiature destinate a durare nel tempo. 

UN’APPARECCHIATURA MEDEL 

qualunque essa sia 

e fier teaiMe- 


Per maggiori informazioni rivolgersi ai PUNTI DI 
VENDITA MEDEL in tutta Italia, ai Rivenditori di 
«Personal» e «Mmicomputers», o direttamente 
all'Ufficio Vendite MEDEL (Sede) Roma 
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UN ANNO DI SUCCESSI 

PROGRAMMI PER IL TUO HOME COMPUTER 


TEXAS TI 99/4A 

GRAN PREMIO 

REACT 

CAPANNELLE 

ORIC 1 

CBM 64 

LA FONTANA 

SISTEMI LINEARI 

ENTERTAINER RAG 

ZX 81 

INVADERS 

BLACK HOLES 

CACCIA AL TESORO 

MOONBUGGY 

IMPARIAMO LA FISICA 

AL RISTORANTE 
PIATTAFORMA 5 

EQUAZIONI DI II GRADO 

SLALOM 

VIC 20 

ASTEROIDI 

BATTAGLIA NAVALE 

ALIEN DESCENDER 

POKER 

NEBBIA SU VENERE 

INVASIONE 

JAWS 

MASTERMIND 

ZX SPECTRUM 

CACCIA ALLA BALENA 
BOAT RACE 

FROGGY 

GRAND PRIX 

SPACE FIGHT 

BIORITMI 

MPF II 

BONUS & MALUS 

OROSCOPO 

AGENDA TELEFONICA 

ENALOTTO 


VIC 20 


SURF 

POESIE...RANDOM 

ORIC 1 

OCCHIO ALLA CIFRA 

TABELLA 

ALIEN 

CALENDARIO 

ARREDAMENTO PER 
CUCINA 

TEXAS TI 99/4A 

SULLA SPIAGGIA 

ZX SPECTRUM 

MOZART 

DATA BASE 

IL MURO 

AZIENDA AGRICOLA 
TENNIS 

SALVATE GLI OMINI 
VALORE E CODICE 
COLORI DELLA 
RESISTENZA 
CALENDARIO 

QUATTRO IN LINEA 

CBM 64 

QUARK 

INTERROGAZIONE DI 
CHIMICA 

SUPER MENÙ 
REGRESSIONE LINEARE 

ZX 81 

MELE 

DELTAPLANO 

BOWLING 

TIRO AL PIATTELLO 
• S.O.S. ATTACCO ALLA 
TERRA 

SEGA SC 3000 

BIORITMI 

CORSO DI BASIC 

SHARP MZ 700 

RIUNISCI LA MUSICA 
ISTOGRAMMI 

LA CASA ABBANDONATA 

MPF II 

DOLCI 

FATTURAZIONE 

TOPI 

MAGAZZINO 

GIOCHIAMO IN BORSA 

QUATTRO IN FILA 


SHARP MZ 700 

YELLOW SUBMARINE 

MASTERMIND 

LABIRINTO 

GRADO DI ARMONIA 


ORIC 1 

HIGH DRIVER 

TRIS 

BANCA 

RALLY 

ISTOGRAMMI 

LA TORRE 

O-X 

ZHORICK 

MOSCA CIECA 
CONVERSIONE 

CBM 64 

ALIMENTATORE 

STABILIZZATO 

ZX 81 

SLALOM 

GULP 

PIATTAFORMA 5 

MEMORIA 

DATABASE 

RINUMEFIAZIONE 

PROTEZIONE 

EQUAZIONI DI II GRADO 

PROGRAMMI 

MOSTRO 

VIC 20 

ZX SPECTRUM 

IL GUARDIANO DEL 

ELICOTTERO 

TEMPO 

DIAGRAMMI A 

IL SERPENTONE 

COORDINATE POLARI 

INGRANDIMENTO 

SPECTRUM INVADERS 

CARATTERI 

ASTEROIDI 

ROULETTE 

LOGO 

INTELLETTO 

CORSO DI TELEGRAFIA 

BASE ALIENA 



DEFENDER 

ZOMBIE 

TEXAS TI 99/4A 

COMPUTER AIDED 

GINNASTICA AEROBICA 

DESIGN 

LA CONIUGAZIONE DEI 

ALTA VELOCITA 

VERBI 

LEZIONE DI SPAGNOLO 

SHARP MZ 700 

CACCIA AL TESORO 

ORIC 1 

CODER/DECODER 
RENUMBER LINE 
FALCIATRICE/ 

MPF II 

FATTURAZIONE 

MAGAZZINO 

ISTOGRAMMI 

ZX 81 

STANZE 

DAME 

NAVI 

NEVE 

MARZIANETTI 

ZX SPECTRUM 

DINAMITE 

EXTRATERRESTRE 

STATUS 

STRIKE AND BALL 
EQUAZIONI SIMULTANEE 
DECLINAZIONI LATINE 

KONG 

CBM 64 

SOFTWARE SHOP 

INVADER 

FIORI 

VIC 20 

FLYING SIMULATOR 

BIT IL BRUCO 
SINTETIZZATORE 

SFIDA INTERGALATTICA 

BLACK JACK 

SEGA SC 3000 

OTHELLO 

CASCATUTTO 

ROULETTE RUSSA 

CORSO DI BASIC 


ZX SPECTRUM 

LEGGE DI OHM 
IL MURO 
BANANAS 
GIARDINAGGIO 
STENDIAMO IL BUCATO 
LA CACCIA 

CBM 64 

COMMODORE 13 
ATTACCO ALLA CITTÀ 
METEORE 

OCCHIO ALLA CIFRA 
SECA SC 3000 
TOTOCALCIO 
CORSO DI BASIC 
TEXAS TI 99/4A 
AGENDA 
TELEFONICA 
ESTRATTO CONTO 
CONVERSIONE 
COMMODORE/ 

TEXAS 

V1C 20 

IL GALEONE 


CAMPIONATO DI CALCIO 
SERIE A 
MASTERMIND 
ARTICOLI 
DETERMINATIVI 
TABELLINE 
IL VAMPIRO 
FIRE FOX 

MPF II 

SNAKE 

ZX 81 

BACCARAT 
IL CUBO ALFABETICO 
INVASIONE DI TOPI 
LANCIO COL 
PARACADUTE 
SQUASH 

RAPINA IN BANCA 
BREAKOUT 

SHARP MZ 700 

RISOLUZIONE DI 
EQUAZIONI 
CON IL METODO DI 
CRAMER 



ORIC 1 

GRAND PRIX 

VIC 20 

SHARP MZ 700 

ANAGRAMMI 

INCONTRI DI CALCIO 

XXIII OLIMPICS 

TOMBOLA 

TRON 

LABIRINTO MOBILE 
ZGORBYUS 

TEOREMA DI PITAGORA 
TOTOVIC 

SEGA SC 3000 

CACCIA AL 
SOTTOMARINO 

VIDEO PICTURE 

CORSO DI BASIC 

ZX SPECTRUM 

IL MONASTERO 
MALEDETTO 

ENGLISH TESTER 
TEOREMA DI PITAGORA 

TEXAS TI 99/4A 

LA VENDETTA EDL 
FANTASMA 

ISTOGRAMMI 

IL TRENO ARITMETICO 

ZX 81 

OCCHIO ALLA ZIA 

TIRO ALLE ANATRE 

CBM 64 

TABELLINE SPAZIALI 
SUPER POLPETTA 
OROLOGIO AD ALTA 
RISOLUZIONE 

IL FIUME 

TIRO A SEGNO 
ATTERRAGGIO 

LUNARE 

POKER CON 1 DADI 

NITRO LABIRINTO 

MPF II 

PREZIOSO LETTERE IN 

VIAGGIO NELLO SPAZIO 

SEQUENZA 


COMPLETA LA TUA COLLEZIONE CON LA RACCOLTA 
DI 



1984 


OCCASIONE 


n A non perdere» 


IL PAGAMENTO VA EFFETTUATO A MEZZO ASSEGNO BANCARIO, VAGLIA POSTALE O C/C 
POSTALE N. 72609001, INTESTATO A LIST— PROGRAMMI PER IL TUO HOME COMPUTER — 
CASELLA POSTALE 4092 - ROMA APPIO 
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IL PRIMO "CENTOPAGINE" 

DI PROGRAMMI PER IL TUO CBM 64 • VIC-20 
• ORIC-1 • MPF/II 

• ZX/81 • ZX/SPECTRUM • TI 99/4A 



[SU 


offerì 



Spese postali comprese 
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7-15 aettembne - Tiena di Roma 

ORARIO: feriali 15-22 - sabato e festivi 10-22 


SEGRETERIA GENERALE E ORGANIZZATIVA STUDIO BIESSE - VIA DELL'ACQUA BULLICANTE 160 - 00177 ROMA - TEL 2956RO-295836-2754972 


...tanti pnodotti: 

GIOCATTOLI • ARREDAMENTO 

EDITORIA • CARTOLERIA • ABBIGLIAMENTO 

SPETTACOLI A NON FINIRE 

SUPERCARE DI SUPERMODELUSMO 
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